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Preface 



As children we have all played at fantasy adventures, from cow- 
boys and Indians to sword fights with villains. We explored the 
ocean, searched in caves, dug for treasure, and discovered great 
wealth in a crystal rock. We treated our fantasy role-playing 
adventures as fact, and enjoyed playing in the worlds we 
created. 

In the last few years we have seen fantasy board games 
become some of the most popular on the market. There are many 
varieties, from Dungeons and Dragons to (my favorite) Empire of 
the Petal Throne. In Empire, the player is human on a planet 
which was once a great technological world, but due to some 
great upheaval has reverted to an almost primitive state in which 
humans fight for survival. More than half of the planet is ruled 
by other types of creatures; some are friendly or tolerant toward 
humans, and others wish to wipe them from the planet. The 
player can explore the surface of the planet or visit the great 
underground temples (or dungeons). In either case, the purpose 
is to find treasure and magical items that were left by the former 
inhabitants. 

In each fantasy game, a Dungeon Master presides over the 
game and is sole judge on the results of any particular move. 
Before beginning the adventure, each player chooses a fantasy 
role to play, such as Warrior, Magician, or Priest. Dice are rolled 
to determine the character's strength, intelligence, dexterity, 
constitution, charisma, wealth, and "hit" points. The player then 
has a choice of what type of armor, shields, and weapons to use 
in the adventure, depending on the character's strength. 

ix 
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To begin play, the Dungeon Master verbally sets the opening 
scene. Part of a typical session could be as follows: 

DM: You are just inside the dungeon. The hallway 

forks ahead, one fork going northeast, the 

other northwest. 
Player: We approach the fork cautiously, trying to see 

what is northeast. 
DM: Northeast the hallway is very short, ending in 

a door. 
Player: We proceed to the door and listen. 
DM: From within, you hear the sound of something 

scratching the door. 

The player (or players) would now have to choose to enter the 
room or leave. The player is encouraged to believe that he or 
she really exists in this world of magic and mystery, and to react 
to everything learned about the environment as if it were real. 
For this type of game the rules are completely flexible, and crea- 
tivity is strongly encouraged. Before choosing to enter the room, 
the player may wish to cast a spell of clairvoyance (if a magician 
or priest) to see through the door, and, depending on the level 
obtained in the game, a certain percentage of chance (calculated 
by a roll of the dice) is given for the spell to work. 

There can be only one thing more habit-forming than playing 
adventures, and that is creating adventures for others to play. 
If you have ever had the pleasure of being Dungeon Master for 
a game, you can understand this. And, considering the fasci- 
nation for home computers that has swept the country almost in 
tandem with the popularity of the fantasy adventure, the pro- 
gression to the computer adventure is not a surprising one. The 
"original" computer adventure was developed on a mainframe 
at Stanford University in the late 70s by Willie Crowther and Don 
Woods. Since that time, there have been many different adven- 
tures created on all types of computers. 

Ideally, the computer adventure would allow the player to 
be totally creative in his exploration of the world depicted. How- 
ever, due to the computer's limited storage space and memory 
capacities, the adventure must be restricted to certain rules. The 
player is permitted to communicate with a type of abbreviated 
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English, usually two words (verb-noun). The computer processes 
the input to see if the words are understood, and then acts on 
any valid words within the limits of the program's ability. Some 
types of input are easily utilized, such as WALK, RUN, and GO. 
All would be sent to the same subroutine for processing the in- 
formation. 

Allowing many different solutions in the same situation is 
sometimes very difficult, such as with the simple command to 
open a locked door. The player could use a key, pick the lock, 
chop through it with a sword, or remove the hinges. Since most 
adventure programs cannot allow for all these alternatives, the 
player's creativity may be somewhat limited. Consequently, the 
use of a computer as Dungeon Master will never be as limitless 
as a human referee, because no matter how many alternatives 
are allowed, someone will try something that was overlooked. 
However, through careful planning and design, computer ad- 
ventures can be developed which are highly challenging and 
enjoyable to the most sophisticated of players. 

This book will show you how to become the ultimate Dun- 
geon Master by creating your own adventures on your Atari mi- 
crocomputer. Part 1 provides a brief explanation of the basic 
steps involved in creating computer adventures, followed by six 
actual adventures you can study, input, and play. Included are 
three interactive adventures (Part 2) and three graphic adven- 
tures (Part 3), one in each of the Atari PILOT, Microsoft BASIC, 
and BASIC languages. (For the sake of brevity, a rudimentary 
knowledge of the computer languages used is assumed. There 
are many fine books that can give you the basics of each of these 
languages.) Finally, Part 4 offers instructions and programs to 
guide you in creating your own computer adventure. Appended 
to the book are complete program listings for the six games pre- 
sented in the book, plus additional information which will help 
you get the most out of your Atari computer and enhance your 
adventure-making skills. 



PART 1 



The Making of an 
Adventure 



The basic steps involved in creating a computer adventure are 
developing the scenario, identifying objects to be used in the 
game, drawing a map, preparing a flowchart, keying in the pro- 
gram, and, finally, play testing the game. A brief explanation of 
each of these steps follows. Detailed examples accompany the 
individual games presented later in the book. 

THE SCENARIO 

It all begins with an idea. The most creative part of adventure 
programming is building the scenario on which the adventure 
is based. The setting of the adventure can be anywhere — on land, 
on sea, under water, under ground, in space, on the surface of 
a new planet — any locale your mind can conceive. You could 
travel from one land to another, explore the human body, search 
the underground labyrinth of Neptune, or fly to the cloud city of 
Venus. Likewise, the objectives for adventures are virtually lim- 
itless. The objective could be to hunt for treasure, find a missing 
person, solve a mystery, explore an unknown region, rescue a 
damsel in distress, or just to survive. Each has the potential for 
excellence. It is you who must add the necessary elements to 
make the adventure unique, enjoyable, and exciting. 

Once you have made decisions on the components of your 
adventure, you can begin to organize it onto paper. Start by 
listing all of the puzzles that need to be resolved in order to reach 
your adventure's ultimate objective. A puzzle can be as simple 
as reading a note to decipher part of the adventure, or as complex 



1 



2 THE MAKING OF AN ADVENTURE 

as having to put several small pieces together to unravel just 
one part of the overall solution. 

Additional complexity is introduced into the game in the 
form of obstacles. Again, the possibilities are limited only by the 
creator's imagination: hills too steep to climb, acid lakes, scorch- 
ing deserts, and villains who seek to kill are just a few examples. 

THE OBJECTS 

Once obstacles are introduced into the game, the next step is to 
provide the player with means of overcoming them. A rope ladder 
to climb the hill, a rubber boat to cross the lake, canteens full 
of water to help survive in the desert, and methods of shielding 
oneself from malefactors are some objects that could be provided 
to aid the player in reaching the game's objective. Of course, 
you can also add items to your adventure which have no use 
except to tantalize the player. 

As you develop the various elements of your scenario, you 
should keep a list of the objects needed to overcome each ob- 
stacle in the adventure, their uses, and their locations. 

When designing an adventure game it is best to employ the 
most straightforward way of using objects, since nothing can be 
as frustrating as trying for several minutes to use an object and 
being told, "You can't do that." The adventure quickly loses its 
appeal if the adventurer is constantly thwarted in his or her 
attempts to solve puzzles. It is important to design the adventure 
so the pace of the program will keep the player's interest. So 
give careful consideration to the input a player may try. 

THE MAP 

In order to program the computer with the necessary details of 
your adventure, you must first create a map. A well-made map 
will aid you greatly in the design and later debugging of your 
adventure program. Begin by drawing a square for each location 
and a line between any connecting locations, and then number 
each location. Next, enter each object on the map in its proper 
location. It is often necessary to work back and forth between 
your list of objects and the map, as you may need to add or delete 
rooms or items. 
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Use the map to test the logic of your adventure by being 
sure that an object can be obtained before it is required for use 
elsewhere in the game. For example, if a key is needed to unlock 
a door, you cannot have the key locked behind that door. Your 
adventure map will be one thing that you will use constantly 
during programming of the adventure. 

THE FLOWCHART 

It does not matter how complicated your program appears, the 
basic form of programming is the same. The easiest way is to 
carefully think out your program onto paper. The first step is to 
divide the jobs the program will perform into their smallest parts, 
or routines. Each routine does a certain job, and together they 
combine to become the overall program. 

The flowchart is the result of careful, step-by-step consid- 
eration of the best way for the program to handle a situation. It 
is an outline showing each part of the program that must be 
included for the program to work, and is used as a guide in 
programming the game. Actually, once you have drawn the map 
of your adventure, you have already designed a type of flowchart 
of your program. 

It is worth mentioning here that, while some programmers 
use a flowchart religiously, some follow a rough outline of the 
program's execution and do not create a written flowchart. I sug- 
gest that you try both, since it is largely a matter of personal 
preference. 

Every programmer develops his own style of flowcharting. 
Throughout this book, the symbols shown below are used. 



TERMINAL. The terminal 
symbol indicates the beginning 
and ending of a program. 



DECISION. A decision sym- 
bol indicates the point at which 
the computer must decide which 
set of instructions to follow. 



C_D 
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INPUT/OUTPUT. This sym- 
bol indicates either that infor- 
mation is being sent to the pro- 
gram by the user, or that the 
program is supplying informa- 
tion to the user. 



PREDEFINED PROCESS. 
This is the set of instructions the 
computer will follow regardless 
of what is entered by the user. 

CONNECTOR. The connec- 
tor is used to show that the pro- 
gram starts, ends, or continues 
elsewhere. 



O 



KEYING THE PROGRAM 



Once you have completed the flowchart for your adventure, you 
can enter the program into your Atari. When keying in your pro- 
gram it is very helpful to be able to see how the text will appear 
on the monitor or TV screen. This can be accomplished by either 
running the program or using the GOTO(n) command (where n 
is the line number of your program to print text). This will aid 
you greatly in formatting your screen display. A nice feature of 
the Atari is the ability to use the cursor control characters to 
format your output. These can be imbedded into your print state- 
ments by pressing the escape key, then the control key and an 
arrow key for the direction in which you would like your text to 
move. 

When keying in programs from magazines or books, remem- 
ber that each space, comma, colon, semicolon, etc., has a special 
meaning to the computer and the listing should be followed 
exactly. 

PLAY TESTING 

If you think that you are through with your adventure after keying 
it in, think again! Play testing and debugging are as much a 
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necessity as the actual writing of the adventure. You may have 
read that a computer program is never actually completed; that 
goes double for adventure programs. Murphy's Law is well sup- 
ported-if anything can go wrong, it will, and usually at the worst 
possible moment. Although you may have worked weeks on a 
computer adventure, trying every possible combination of sur- 
vival and death in the game, due to the tremendous amount of 
user input there is always a chance that something will be over- 
looked. For example, you may say proudly to a friend, "Take my 
new game to play and see if you enjoy it." Your friend takes the 
program and minutes later calls you to ask why your program 
crashed at line 3000. Frantically, you ask what was entered to 
cause such a thing, and find that it was an abbreviation of a 
word in a situation designed to handle only the complete word. 
Such things can happen, and often do. 

The first step in testing your adventure is the initial run of 
the program. Here you do a straight run through the program, 
doing everying that should be done in your adventure, at the 
time it should be done, and at the location it should be done. 
Make a list of all the errors that you find. If your program "errors 
out" while running, you can usually continue with the debugging 
by typing CONT and hitting return. 

Mention should be made of the excellent editing features of 
the Atari. They are a joy to use, because major changes can be 
effected in the program and the results can be seen immediately. 
After making the desired changes, type GOTO line (n), and the 
program will continue from that line without changing any var- 
iables. At any point in your program, you can add the STOP 
command. When your program reaches this point, you can ask 
for the value of the variable by typing PRINT (variable name or 
number) and you can see what is in that variable. Then you type 
CONT (or CON.), hit return, and the program will resume. 

It is always a good idea to save your program every 30 
minutes or so in case of a power outage or other disaster. 

Next comes the major play testing. This is a lengthy process 
of trying every possible input in each situation to see if the pro- 
gram operates as it should. Rather than starting over at the be- 
ginning each time the program crashes, you can use the GOTO 
feature to return you to the input part where you can continue. 
Be sure to maintain a list of input that causes errors. 
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Ideally, you should be trying input that will cause difficulty. 
It is also a good idea to have someone else try out your program 
while you just sit and watch the results. Take notes, because you 
may see things tried that you never thought of. Then it is back 
to the drawing board to work out the problems you have found 
so far, and to add features you think would improve the game. 
Then the cycle starts all over, as you again have to play test all 
the added features. Remember, no matter how well you have 
thought out a routine, there will frequently be problems due to 
the large number of factors involved. Also, you can learn much 
from debugging programs, since each error made will give you 
a better understanding of what is required for the computer to 
accomplish a certain task. Don't worry too much about your pro- 
gramming technique, as this will develop as you learn more 
about the language you are using and the computer itself. As 
long as the program does what you want it to do, it is a good 
program. You can always come back later to make any changes 
in the program you feel will help. 

Enjoy yourself, and program to please yourself. Happy 
hacking! 



PART 2 



Interactive Adventures 



An interactive adventure game for the computer is written to 
function as an interpreter. The player, at the computer keyboard, 
types some form of command, usually in the form of two words 
(verb-noun). The computer, acting as mediator, accepts the play- 
er's input and sends it through the program to be interpreted. 
The program, finding a message it understands, acts upon the 
input and returns with some form of output to the player. 

The next few chapters deal with the creation of this type of 
adventure program. There will be adventure programs in Atari 
PILOT, Atari Microsoft BASIC, and Atari BASIC. In each, I will 
attempt to show you some of the many ways to handle the in- 
formation necessary for an adventure game. I have taken for 
granted that you know most of the commands in each language, 
such as PRINT, GOTO, FOR/NEXT, etc. But individual commands 
don't do much; it's the way they are combined that forms the 
completed working program. Herein the programs are broken 
down into their smallest working subset of statements to show 
you the results of each segment and, finally, the completed, play- 
able program. 

In each language the program must contain all the infor- 
mation necessary for any command the player might give. There- 
fore, it is vital that you understand each phase in the construction 
of an adventure game. For this reason, each program is pre- 
sented in detail with all the information that you need to make 
your own adventure programs, and a complete listing of each 
program is also included in Appendix A. Those of you who would 
like to play the adventures before you understand how they work 
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can key in the programs from the listings in the appendix, and 
play them, solve them, and enjoy them right away. You can later 
refer to the specific section for each adventure for details of how 
it works. 

Each adventure requires the creation of a specific vocabu- 
lary, because each adventure will have its own words to help 
the player solve the puzzles and complete the adventure. Almost 
all adventure programs use the words TAKE and DROP, but any 
other words needed can be determined only by the requirements 
of the adventure program itself. It would be unnecessary to in- 
clude a word in the program that the player would never need 
(e.g., there would be little need for the word CLIMB if there is 
nothing in the adventure to climb). Therefore, a vocabulary is 
created as the adventure is constructed. You can use as many 
synonyms for a word as you desire and, indeed, these do help 
considerably in the user-friendliness of any adventure (e.g., in 
addition to GO, you could add WALK and RUN; even though each 
of these sends the program through the same subroutine, they 
greatly improve the usability of the program). 

Each of the three languages, PILOT, Microsoft BASIC, and 
Atari BASIC, has its own unique way of storing information. This 
is another thing you will need to know to make your own ad- 
venture programs. Each way of handling information will be 
discussed in detail within the instructions for the program uti- 
lizing that language. 

IMPORTANT: When keying in each program you will see 
brackets ([ ]) within the program lines. These are to help you type 
special graphic characters unavailable by normal keystrokes. In 
each listing, if there is more than one special character, a number 
will precede the keystroke. Example: [30 Ctrl R] indicates that you 
type the keys control R 30 times. 

If there are different characters to be used within the listing 
they will be separated by a slash [ / ]. Example: [esc ctrl - /ctrl 
E] indicates that you type the keys escape, control, minus, then 
control, E. 

If at any time you are uncertain as to the way your program 
line should look, refer to the listings in Appendix A. There, each 
line will be shown as it appears on your monitor or TV screen. 

At intervals throughout the listings, there will be run points 
marked with an asterisk (*). By typing RUN and hitting RETURN, 
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you will be able to see the results of your work up to that point. 
Many times you will be asked to add, delete, or change routines 
so you can see the results of a particular action. The intent is to 
help you understand the results of programming in different ways, 
such as memory savings, speed of execution, etc. 



AN ADVENTURE 
IN ATARI PILOT: 



Placfebearfcte Evtamtt 
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Blackbeard's Treasure is written in Atari PILOT, which stands 
for Programmed Inquiry, Learning Or Teaching. PILOT is the 
easiest of computer languages to learn and was created as a 
text-oriented language. It was first conceived as a tool for writing 
conversational programs, and is designed to handle all types of 
user input with ease. There is a tremendous amount of user input 
required to play an interactive adventure; therefore, PILOT is a 
very good language for interactive adventure programs. 

Blackbeard's Treasure was the brainchild of my 14-year-old 
son, Aaron, who decided on the objective, created most of the 
obstacles, and wrote the messages. The program requires 16K 
when used with a cassette system, or 24K with a disk system. 

THE OBJECTIVE 

To find the secret hiding place of Blackbeard's Treasure. Mes- 
sages found along the route will provide clues to the treasure's 
location. 



THE OBJECTS 



Bottle 

Message in Bottle 



Sailboat 



Rock with Message 



Location #1. 

No location number assigned until 

bottle is picked up — variable #B = 1 . 

Message: 

FIND A BOAT 

SAIL IT WEST 

THERE'S TREASURE THERE 

ONE OF THE BEST 
Location #3. Not here until note in 
bottle is read — variable #B more than 
1 (#B>1). This keeps the player from 
going places he is not allowed until 
after certain conditions have been met. 
Location #7. Message: 

FIND A SHOVEL 

DIG IN THE GROUND 

FOR THERE A CLUE 

MAY BE FOUND 
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Shovel 



Wooden Chest 
Message in Chest 



Log 

Message on Wall 



Ladder 
Treasure 



Location #8. This item has to be used 
in order to get to Location #9, which is 
under ground. #B = 3 for shovel picked 
up. #B = 4 for digging. 
Location #9. 

No location number assigned until 
chest is opened — variable #B = 5. 
Message: 

WHEN YOU CAN SEE 

THROUGH THE FOG 

CRAWL INTO 

THE HOLLOW LOG 
Location #12. 
Location #13. Message: 

LOOK AROUND THE CAVE 

SO DIM 

AND THEN CLIMB ONTO 

THE RIM 
Location #17. 
Location #18. 
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THE MAP 
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To enter cave 
player must 
crawl inside 
the log. 



To location 6 




A sandy beach 
Message 



I r** 



l**~lkj,lh**. 
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THE FLOWCHART 



( Begin J 



Title music 



Display win 
message music 



C " ) 



-Yes 



o- 



■No- 



Initialize 
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THE PROGRAM 

Initialize routine-set registers and open screen for title. [@B1373 =16 
for TEXT WINDOW/@B 1373 = for FULL GRAPHICS SCREEN / 
@B1374 = n GRAPHICS MODE]. When using a @B location, the 
results are the same as POKing a number into a memory location 
in BASIC. 

Example: POKE 710,0 turns the inner portion of the screen black 
in BASIC. C:@B710 = would accomplish the same thing in PILOT. 

Additional PEEK and POKE locations can be found in Appendix 
B. 

10 U:*INITIALIZE 
3260 tINITIALIZE 
3270 C:S)B1 373=0 
3280 C:S>B 1374=2 
3290 WRITErS, 

Position text and print title. (Using upper case, lower case, and 
inverse letters in graphic modes one and two will create different 
colors of text.) 

3300 P0S:4,3 

3310 WRITE: S, blackbeards 

3320 P0S:5,4 

3330 WRITE: S, treasure 

3340 P0S:3,7 

3350 WRITE: S, BY JACK HARDY 

3352 P0S:4,9 

3355 WRITE: S, KEYED IN BY 

3357 P0S:3, 10 

3358 WRITE:S, (insert your name) [no mo 
re than 14 letters, please. 

A little music and a pause between notes: 

3360 SO: 1, 13 
3370 PA: 30 
3380 SO: 2, 14 
3390 PA:30 
3400 SO: 4, 16 
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3410 PA: 60 

3420 SO: 1, 13 

3430 PA: 30 

3440 S0:0 

Pause the program so title can be read. Time in Atari PILOT is 
measured in units of l/60th of a second. Thus, PA:60 means stop 
execution for one second, PA:30 for 1/2 second, PA: 180 for 3 sec- 
onds, etc. 

3450 PA: 120 
( * ) RUN 

Set variables to zero. #B = PROGRESS STATUS / #T = TREASURE 
STATUS / #N = WHAT IS NORTH OF PRESENT LOCATION / 
#S = WHAT IS SOUTH OF PRESENT LOCATION, etc. / #D = DOWN 
/#U = UP. 

Set $LOCATION to 1 for player's location at the beginning of the 
adventure. 

3460 C:#B=0 

3470 C:#T=0 

3471 C:#N=0 

3472 C:#S=0 

3473 C:#E=0 

3474 C:#W=0 

3475 C:#D=0 

3476 C:#U=0 

3480 C : *L0CAT I 0N=L0CAT I ON 1 

Stop title display and format screen. @B82 = RIGHT MARGIN / 
@B83 = LEFT MARGIN / @B710 = INNER SCREEN COLOR / 
@B712 = OUTER SCREEN COLOR / = BLACK. Other colors can 
be obtained by multiplying the color number (0 to 15) by 16 and 
adding the luminance. (Example: (2*16 + 8 or 40) will give you a 
light orange color.) Try using other color values in line 3500 to 
see the effects. Luminance values range from to 14. 

3490 GR:QUIT 
3500 C:a>B710=0 
3510 C:5)B82=0 
( * ) RUN 
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After running the program, hit SYSTEM RESET to restore default 
values to screen color and left margin or, in direct mode, you 
can type C:@B710= 128, hit RETURN, C:@B82 = 2, hit RETURN. 

End initialization and return to the beginning of the program. 

3520 E: 

First location player will be in: 

20 *L0CATI0N1 

Set variables to the room number player will be in if he goes in 
that direction. (Example: If player goes north from location 1, he 
or she will be in location 2; if the player goes east, he or she will 
be in location 5.) Not assigning a value to a direction variable 
(i.e., leaving it zero) will tell the program there is nothing in that 
direction. These values will be used later to decide if the player 
can go in that direction. 

30 C:#N=2 
40 C:#S=3 
50 C:#E=5 
60 C:#W=4 

Assign an object to this location. This will be used later to tell 
the player what items can be seen in this location. 

70 C:*ITEM=A BOTTLE BURIED IN THE SAND 

Assign a description to this location. This will be used later to 
give the player a general description of the area he or she is 
occupying. 

lOO C:*AREA=ON A SANDY BEACH 

Now jump to subroutine to print the information onto the screen. 

110 J:*PRINT 

The following print routine is used throughout the adventure to 
relay information to the player. First, it clears the screen and 
positions the cursor in top left corner. 
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1360 *PRINT 

1370 T:Cesc ctrl clear] 

1380 P0S:0,0 

Then it prints an eye-catching design: 

1390 T:C40 Inverse 7.'s / Shift + D 
1400 T: 

Prints a description of the area: 

1410 T: YOU ARE *AREA 

1420 P0S:0,4 

1430 T:C20 Inverse O'e / Shift + D 

1440 T: 

Prints the item variable for this location: 

1450 T: You can see: 
1460 T: SITEM 

Formats the screen to print directions: 

1470 P0S:0,9 

1480 T: [21 SpacesDN 

1490 T: C20 Spaces/ctrl FMG/5 spaces/ctrl 

QDUCctrl ED 

1500 Tj POSSIBLE EXITSC3 spacesDWC3 s 

pacesDE[4 spaces/Shift =/l space/Shift 

= 3 
1510 T:[20 spaces/ctrl GMF/5 spaces/ctrl 

ZlDCctrl CD 

1520 T: [21 spacesDS 

1640 P0S:0, 15 

1650 T:C20 Inverse CD's / Shift +D 

1660 T: 

Prepares for input: 

1680 T: WHAT DO YOU WANT TO DO: 
1690 T: 
1700 T: 

(*)RUN 
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The main screen has now been formatted, giving the player 
some of the necessary information. Add arrows to show the pos- 
sible directions in which he or she can go. 

The commands below are conditional and will only print an 
arrow if the variable for that direction is more than zero. The 
equivalent statement in BASIC would be IF/THEN. Example: 
IF N>0 THEN PRINT . . . 
T(#N>0): . . . 

1530 P0S:21, 10 

1540 T(#N>0):Cesc esc/esc Ctrl -D 

1550 POS:20, 11 

1560 T<#W>0) : [esc esc/esc ctrl +1 

1570 P0S:22, 11 

1580 T(#E>0):Cesc esc/esc ctrl *D 

1590 P0S:21, 12 

1600 T(#S>0) : [esc esc/esc ctrl -1 

1610 P0S:29, 11 

1620 T(#U>0):[esc esc/esc ctrl -D 

1630 T(#D>0):[esc esc/esc ctrl =] 

( * ) RUN 

Jump to input routine, position cursor, accept input, and compare 
to valid commands. 

1710 J:*INPUT 

1720 * INPUT 

1730 T: [esc ctrl - / 2 esc ctrl *'s / shift +D 

1740 A: 

Spaces in the match command (M:) of Atari PILOT are very im- 
portant. A space before the word means there must be a space 
before the word on input in order for it to match. Example: M: 
WE matches any word in the input string beginning with the 
letters WE. Because a space always precedes the beginning of 
a word in the accept buffer, the combination of a preceding space 
and the letters WE tell the computer to match any word beginning 
with the letters WE. Examples: WEEK, WEIGHT, WELD, WEST, 
and even GO WEST would all be considered matches. Likewise, 
a trailing space would require a space after the word. This way 
the computer can match an ending letter, word, or fragment of 
an input string. Example: M:EW would match CREW, GREW, 
FEW, NEW, etc. 
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1750 M: NORTH, SOUTH, EAST, WEST, UP, 
DOWN 

Compare and jump to proper routine on a match: 

1760 JM: *N0RTH, *S0UTH, *EAST, *WEST, *UP, 
*D0WN 

If no match, then compare for other valid commands and jump 
to proper routine. Note that the commands TAKE and GET will 
send the program to the same routine. 

1770 M: TAKE, GET, READ 
1780 JM:*TAKE,*TAKE,*READ 

If no valid commands are matched, ring bell, print message, and 
jump to a routine called CLEARBOTTOM. 

1790 T: [esc ctrl 2/2 spaces] I DON'T UNDERSTAND 

THAT! 

1800 J:*CLEARBOTTOM 

The CLEARBOTTOM routine does exactly what it says — it pauses 
for 2 seconds for the message to be read, erases the bottom of 
the screen, and jumps back to the input routine. 

3220 *CLEARB0TT0M 

3230 PA: 120 

3240 T:C2 esc ctrl -• s / 7 esc shift inserts] 

3250 J:*INPUT 

(*)RUN 

After running the program, hit RETURN without hitting any other 
keys. The bell should sound, the I DON'T UNDERSTAND THAT 
should be displayed, wait to be read, and then disappear. Now 
the program is waiting for more input. 

The direction routines 'NORTH, 'SOUTH, etc., check to see 
if direction is equal to zero. If it is (conditional jump), the program 
jumps to a "can't go in that direction" routine. If more than zero, 
it sets the value of the direction into a string called $LOCNUM 
(abbreviation of Location Number) and jumps to a routine called 
'CHANGELOCATION. 
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1810 *N0RTH 

1820 J (#N=0) :*CANTG0 

1830 C:*L0CNUM=#N 

1840 J:*CHANGEL0CATI0N 

1850 *S0UTH 

1860 J (#S=0) :*CANTG0 

1870 C:*L0CNUM=#S 

1 880 J : *CHANGEL0CAT I ON 

1890 *EAST 

1900 J (#E=0) : tCANTGO 

1910 C:*LOCNUM=#E 

1920 J:*CHANGELOCATION 

1930 *WEST 

1940 J(#W=0):*CANT60 

1950 C:*LOCNUM=#W 

1960 J:*CHANGELOCATION 

1970 *UP 

1980 J(#U=0):*CANTGQ 

1990 C:*LOCNUM=#U 

20OO J:*CHANGELOCATION 

2010 *DOWN 

2020 J (#D=0) : *CANTGO 

2030 C:*LOCNUM=#D 

2040 J:*CHANGELOCATION 

If nothing in that direction, the routine rings the bell, dis- 
plays the message, and jumps to the CLEARBOTTOM routine. 

Note: The program comes here only if the value of the directional 
variable is equal to zero. 

2170 tCANTGO 

2180 TzCesc Ctrl 2/2 spaces] YOU CAN'T 

GO IN THAT DIRECTION! 

2190 J:*CLEARBOTTOM 

<*>RUN 

Type GO UP and hit RETURN. If all is well, a bell will sound, a 
message will be displayed, and the bottom of the screen will 
clear. Remember, this is Location 1 and there is no way to go up 
from here. In order to have some new places to go, more locations 
will have to be added to the program: 
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120 


*L0CATI0N2 


130 


C:#S=1 


140 


C:#E=5 


150 


C:*ITEM=NOTHING SPECIAL 


160 


C:*AREA=ON A SANDY BEACH 


170 


J:*PRINT 


200 


*L0CATI0N3 


220 


C:#N=1 


230 


C:#E=5 


235 


C:#W=4 


240 


C:*ITEM=NOTHING OF INTEREST 


260 


C:*AREA=ON A ROCKY BEACH. THERE AR 


E CLIFFS TO THE SOUTH. 


270 


J: *PRINT 


280 


*L0CATI0N4 


290 


C:#W=4 


30O 


C:#N=4 


310 


C:#S=4 


320 


C:#E=1 


330 


C:*ITEM=LOTS OF WATER 



340 C:*AREA=SWIMMING IN THE OCEAN 

350 J:*PRINT 

360 *LOCATION5 

370 C:#N=5 

380 C:#S=5 

390 C:#W=1 

400 C:*AREA=IN A LARGE CITY 

410 C:*ITEM=MANY BUILDINGS 

420 J:*PRINT 

Note: In Location 4, going in any direction other than east will 
keep the player swimming in the ocean. Likewise, going north 
or south from Location 5 will keep the player in the city. 

Now give the program a way to get to all the new locations. Reset 
all the directional variables to zero to prepare the program for 
the new location's directional variables: 

3000 *CHANGELOCATION 
3010 C:#N=0 
3020 C:#S=0 
3030 C:#E=0 
3040 C:#W=0 
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3050 C:#U=0 
3060 C:#D=0 

Append the $LOCNUM to LOCATION for a new location: 

3070 C : *L0CAT I 0N=L0CAT I 0N*L0CNUM 

The following part of the program tells the computer to accept 
the new location, match the last three letters of the new location, 
and jump to them when it finds a match. Upon arriving at the 
new location, all new information will be assigned to direction 
variables and to the strings that hold the description of the area 
and the items seen there: 

3080 A:=«L0CATI0N 

3090 M:0N1 , 0N2 , 0N3 , 0N4 , 0N5 , 

3100 JM: *L0CATI0N1 , *L0CATI0N2, *L0CATI0 

N3, *L0CATIDN4, *L0CATI0N5 

The player can move from area to area by typing GO NORTH, 
etc., or by typing only a direction (i.e., NORTH, SOUTH, etc.). 

< *> RUN 

Now a routine to pick up the bottle needs to be created. There 
are several things the program must check before the player is 
allowed to do this. The first is if the player is in the same location 
as the bottle: 

2200 tTAKE 

2210 A:=*LOCATION 

2220 M:L0CATI0N1 

2230 JY:*TAKE1 

2240 T: [esc ctrl 2/2 spacesDTHERE IS 

NOTHING HERE TO TAKE! 

2250 J:*CLEARBOTTOM 

Second, did the player already pick up the bottle? Nofe: This is 
done by checking the #B status variable. If the bottle has been 
picked up, #B will be equal to 1 and the program will jump to a 
routine to tell the player so. If not, it will set the #B status variable 
to 1, tell the player OK (to pick the bottle up), and return to 
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Location 1 to acquire updated information. 

2260 *TAKE1 

2270 J(#BO0):*HAVE 

2280 C:#B=1 

2290 U:*OK 

2300 J:*LOCATION1 

2930 *HAVE 

2940 T: YOU ALREADY HAVE! 

2950 J:*CLEARBOTTOM 

2960 *0K 

2970 T: OKAY! 

2980 PA: 60 

2990 E: 

Since the bottle can now be picked up in Location 1, the message 
there will have to be changed from A BOTTLE BURIED IN THE 
SAND to something else. Add the following line: 

80 C(#B=1):*ITEM=A MESSAGE IN THE BOTTLE 

Note: The above is another conditional command. Since the pro- 
gram is setting #B to equal 1 when the bottle is picked up, this 
will replace the old message in line 70. View this part of the 
program by typing in direct mode, LIST 70,80 and hitting RETURN. 
Now you can see one more way the powerful conditional com- 
mand can be used. 

(*) RUN 

Now that the bottle can be picked up, it can be seen that there 
is a message to be read inside. The following routines are needed 
to read the message. Hit SYSTEM RESET and add the following: 

2355 *READ 

2360 J (#B=1 ) : tMESSAGEl 

2420 J : *CANTREAD 

Note: Again the program will check #B to see if the bottle has 
been picked up. If so, it will jump to message 1 routine. If not, 
it will jump to "can't read" routine, which sounds the bell, dis- 
plays the message, and jumps again to the oft-used CLEARBOT- 
TOM routine: 
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2870 *CANTREAD 

2880 T: Cesc ctrl 2/2 spaces3THERE IS 

NOTHING HERE TO READ! 
2890 J : tCLEARBOTTOM 

The information on the note can be read only once, as the pro- 
gram sets the #B status variable to two, prints the message, and 
jumps to the reset routine: 

2430 *MESSAGE1 

2440 U:*OK 

2450 C:#B=2 

2455 T:C2 esc ctrl -'sD 

2460 T: FIND A BOAT 

2470 T: SAIL IT WEST 

2480 T: THERE'S A TREASURE THERE 

2490 T: ONE OF THE BEST 

2500 J:*RESET 

The reset routine pauses so the message can be read, repositions 
the cursor, and jumps to the CLEARBOTTOM routine: 

3180 * RESET 

3190 PA: 240 

3200 T:C3 esc ctrl -'s] 

3210 J:*CLEARBOTTOM 

What if the player wanted to read the note again? There will 
have to be a routine created to explain why the note can no longer 
be read: 

2885 T(#B=2): THE NOTE TURNED TO DUST! 
Cesc ctrl -3 

The note must also be disposed of in Location 1: 

90 C ( #B=2 ) : * I TEM=NOTH I NG UNUSUAL 

If the message has been read, add the sailboat in Location 3 and 
set direction so player can go west: 

250 C(#B=2):»ITEM=A SMALL SAILBOAT 
255 C(#B=2):#W=6 
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Since sailing west is now possible, more locations are needed: 

440 *L0CATI0N6 

450 C:#N=6 

460 C:#S=6 

470 C:#E=3 

480 C:#W=7 

490 C:*AREA=IN A SMALL SAILBOAT ON THE OCEAN 

500 C:*ITEM=LOTS OF WATER 

510 J:*PRINT 

520 *L0CATI0N7 

530 C:#S=8 

540 C:#E=6 

550 C:*AREA=ON A SANDY BEACH 

560 C:*ITEM=A LARGE ROCK. THERE IS A MESSAGE 

ON THE ROCK. 

570 J:*PRINT 

A way to get to these new locations is needed now. Change lines 
3090 and 3100. Note: The method of leaving a space at the end 
of the match statement for checking only the last three letters of 
the information accepted by the input buffer is again used: 

3090 M-.ON1 ,0N2 , 0N3 , 0N4 , 0N5 , 0N6 ,0 

N7 , 

3100 JM: *L0CATI0N1 , *L0CATI0N2, tLOCATIO 

N3, ILOCATION4, *L0CATI0N5, *LOCATION6, *L 

0CATI0N7 

Use the read routine in line 2355 to read Message 2. Let the 
program input the location, match, and jump to the proper mes- 
sage. If the player is in the right location, have the program use 
the OK routine, position the cursor, and jump to Message 2: 

2370 A:=*LOCATION 

2380 M:0N7 , 

2390 UY:*OK 

2400 TY: E3 esc ctrl -'sD 

24 lO JM:*MESSAGE2 

The program displays the message then jumps to the reset 
routine: 
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2510 *MESSAGE2 
2520 T: FIND A SHOVEL 
2530 T: DIG IN THE GROUND 
2540 T: FOR THERE A CLUE 
2550 T: MAY BE FOUND 
2560 J:*RESET 

<*)RUN 

Note: Try reading things in the wrong location, going in the wrong 
direction, taking things that are not there, etc. All this will help 
you understand how the program works. 

Add some more locations: 

580 *L0CATI0N8 

590 C:#W=10 

610 C:#N=7 

620 C:*AREA=ON A HILL OVERLOOKING THE OCEAN 

630 C:*ITEM=A SHOVEL 

660 J:*PRINT 

670 *L0CATI0N9 

680 C:#U=8 

690 C:*AREA=IN THE BOTTOM OF A HOLE 

700 C:*ITEM=A WOODEN CHEST 

720 J:*PRINT 

and a way to get to them: 

3120 M:0N8 , 0N9 , 

3130 JM:*L0CATI0N8,*L0CATI0N9 

Note: Location 9 is in the bottom of a hole and there is no way 
to get to it. Therefore, the command *DIG needs to be added to 
the program's growing vocabulary. Change line 1770 and 1780 
as shown: 

1770 M: TAKE, GET, READ, DIG 

1780 JM:*TAKE,»TAKE,*READ,*DIG 

Also needed is a way to take the shovel. Change lines 2220 and 
2230 to the following: 
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2220 M : LDC AT I ON 1 , LOCAT I 0N8 
2230 JM:*TAKE1,*TAKE2 

Again the program goes through the verification routines. First, 
it checks to see if player is in the same location as the shovel; 
second, it makes sure the shovel has not already been picked 
up. If it has not, it sets the #B status variable to three, gives the 
shovel to the player, says OK, and jumps back to Location 8 so 
information can be updated: 

2310 *TAKE2 

2320 J(#B>2> :*HAVE 

2330 C:#B=3 

2340 U:*OK 

2350 J : * LOCAT 1 0N8 

In order to get the shovel off the ground, a conditional routine 
must be added to Location 8 to remove the shovel and place it 
in the hands of the player: 

640 C<#B=3>:«ITEM=A SHOVEL IN YOUR HANDS. 

Now create a way to use the new *DIG word in the vocabulary. 
First, the program checks to make sure player is in Location 8 
(as this is the only place a hole can be dug); second, it makes 
sure the shovel has been picked up; and third, it checks to see 
if the player has already dug a hole. If the player has met these 
requirements, it sets #B status variable to four, says OK, and 
jumps back to Location 8 to see the hole: 

2780 *DIG 

2790 A:=SLOCATION 

2800 M:L0CATI0N8 

2810 JN:*CANTDO 

2820 J(#B<3) :*CANTD0 

2830 J(#B>=4) :*HAVE 

2840 C:#B=4 

2850 U:*OK 

2860 J:*L0CATI0N8 

If player did not have the shovel, the program comes here: 
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2900 *CANTD0 

2910 T:Cesc ctrl 2/2 spacesDYOU CAN'T DO 

THAT! 

2920 J:»CLEARBOTTOM 

When a hole has been dug in Location 8, the program changes 
its description to show a hole and sets a directional variable for 
a way to go into it: 

650 C<#B>3):*ITEM=A HOLE IN THE GROUND 
655 C(#B>3> :#D=9 

( * ) RUN 

Now there is a way to get to Location 9 by typing GO DOWN (or 
just DOWN). But what if the player wanted to say GO HOLE 
instead? That would require the addition of a new word to the 
program's vocabulary as well as routines to use the new word: 

1770 M: TAKE, GET, READ, DIG, HOLE 

1780 JM: *TAKE, *TAKE, *READ, *DIG, *H0LE 

2110 *H0LE 
2120 A:=*L0CATI0N 
2130 M:L0CATI0N8 
2140 JN:*CANTD0 
2150 J:*D0WN 

A routine is now needed to open the chest at the bottom of the 
hole, so another word is added to the program's vocabulary as 
well as a routine to use the word: 

1 770 M s TAKE , GET , READ , D I G , HOLE , OPEN 
1780 JM: *TAKE, *TAKE, *READ, *DIG, *H0LE, * 
OPEN 



2700 


*OPEN 


2710 


A:=*LOCATION 


2720 


M:L0CATI0N9 


2730 


JN: tCANTDO 


2740 


J(#B<>4) :*HAVE 


2750 


C:#B=5 


2760 


U:*OK 


2770 


J:*L0CATI0N9 
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Add a conditional command to Location 9 to show what was in 
the chest: 

710 C<#B=5) i«ITEM=AN OPEN WOODEN CHEST 
WITH A MESSAGE CARVED ON THE BOTTOM 

Add another message to the read routine: 

23S0 M:0N7 , 0N9 

2410 JM:*MESSAGE2,*MESSAGE3 

2570 *MESSAGE3 
2580 J <#B<5) : *CANTREAD 
2590 T: WHEN YOU CAN SEE 
2600 T: THROUGH THE FOG 
2610 T: CRAWL INTO 
2620 T: THE HOLLOW LOG 
2630 J: *RESET 

<*>RUN 

Now to add more locations. Note that the player can easily be- 
come lost in the foggy swamps (Locations 10 and 11), as they are 
identical in description and each sets some of the directional 
variables to its own location number. The player can wander 
around for quite a while in the swamp if he or she doesn't go in 
the right directions. 



730 


♦LOCATI0N1O 




740 


C:#N=10 




750 


C:#S=11 




760 


C:#E=8 




770 


C:#W=10 




780 


C:*AREA=IN A FOGGY 


SWAMP 


790 


C:*ITEM=NOTHING 




800 


J:*PRINT 




810 


tLOCATIONll 




820 


C:#N=10 




830 


C:#E=11 




840 


C:#S=11 




850 


C:#2=12 




860 


C:*AREA=IN A FOGGY 


SWAMP 


870 


C:*ITEM=NOTHING 
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880 J:*PRINT 
890 *L0CATI0N12 



900 


C:#N=10 








910 


C:#W=10 








920 


C:#E=11 








930 


C:#S=11 








940 


C:*AREA=IN A CLEARING. 




950 


C:*ITEM=A LOG 








960 


J:*PRINT 








970 


♦LOCATION 13 








980 


C:#N=12 








990 


C:#S=15 








1000 C:#E=16 








1010 C:#W=14 








1020 C:»AREA=IN A 


DAMP 


CAVE. 


1030 C:*ITEM=A MESSA6E 


ON 


THE WALL 


1O40 J:*PRINT 









Now a routine must be added to get to the new locations by 
changing lines 3120 and 3130: 

3120 M:0N8 ,0N9 ,N10 ,N11 ,N12 ,N13 , 
3130 JM: *L0CATI0N8, *L0CATI0N9, *LOCATIO 
N10, *L0CATI0N1 1 , *L0CATI0N12, *L0CATI0N1 
3 

The only way to get to Location 13 is through the log, so another 
word must be added to the program's vocabulary and a routine 
to use it. 

1770 M: TAKE, GET, READ, DIG, HOLE, OPEN, LOG 
1780 JM: *TAKE, *TAKE, *READ, *DIG, *H0LE, * 
0PEN,*L0G 

2050 *L0G 

2060 A:=*LOCATION 

2070 M: LOCATION 12 

2080 JN:*CANTD0 

2090 C:*L0CNUM=13 

2100 J:*CHANGELOCATION 

<*>RUN 
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Add the message found in Location 13: 

2380 M:0N7 , 0N9 ,N13 , 

24 1 JM : *MESSAGE2 , *MESSAGE3 , *MESSAGE4 

2640 *MESSAGE4 

2650 T: LOOK AROUND THE CAVE 

2660 T: SO DIM 

2670 T: AND THEN CLIMB ONTO 

2680 T: THE RIM 

2690 J: *RESET 

Add the final locations, all in the cave: 

1050 JL0CATI0N14 

1060 C:#N=14 

1070 C:#S=15 

1080 C:#E=13 

1090 C:*AREA=IN A NARROW TUNNEL 

1100 C:*ITEM=NOTHING 

lllO J: *PRINT 

1120 *L0CATI0N15 

1130 C:#N=13 

1140 C:#E=16 

1150 C:#W=14 

1160 C:*AREA=IN A NARROW TUNNEL 

1170 C:*ITEM=N0THIN6 

1180 J:*PRINT 

1190 *L0CATI0N16 

1200 C:#W=13 

1210 C:#S=17 

1220 C:*AREA=ON A NARROW LEDGE 

1230 C:*ITEM=WATER RUNNING DOWN THE WALLS. 

1240 J:*PRINT 

1250 *L0CATI0N17 

1260 C:#D=18 

1270 C:#N=16 

1280 C:*AREA=ON THE RIM OF A LEDGE 

1290 C:*ITEM=L ADDER GOING DOWN 

1300 J:*PRINT 

1310 *L0CATI0N18 

1320 C:*AREA=AT THE BOTTOM OF A LEDGE 

1330 C:*ITEM=CinverseD ** THE TREASURE ** 
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[inverse off] 
1340 C:#T=1 
1350 JitPRINT 

And a way to get to each one: 

3150 M:N14 ,N15 ,N16 ,N17 ,N18 , 

3160 JM: *L0CATI0N14, *L0CATI0N15, tLOCAT 

TI0N16, *L0CATI0N17, *L0CATI0N18 

Note: In Location 18, the treasure status is set to one. Add the 
following line to the print routine: 

1670 J(#T=1>:*WIN 

Add the win routine. The program will now play random musical 
notes and flash the winning message on the screen ten times: 

3540 *WIN 

3550 P0S:9,20 

3560 T:***YOU FOUND IT!***C***'s in inverse] 

3570 C:#T=#T+1 

3580 C:#A=?\30 

3590 SO:#A 

3600 PA: 10 

3610 P0S:9,20 

3620 T:***YOU FOUND IT!***CYOU FOUND IT! in 

inverse] 

3630 C:#A=?\30 

3640 SO:#A 

3650 PA: 10 

3660 J(#T<10) :*WIN 

3670 E: 

This completes the first program. In the process of entering it, 
you have had the fun of watching it grow, segment by segment, 
into its final form. Type LIST, hit RETURN. As you can see, all 
of the line numbers are now in order. If you would like to clean 
up the listing and have the program lines incremented by ten, 
then type REN 10, 10 and hit RETURN. List the program again and 
be sure to save a copy of all work onto cassette ( CSAVE ) or disk 
(SAVE "D:filename" ). 



AN ADVENTURE IN ATARI 
MICROSOFT BASIC: 
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Halls of Death is written in Atari Microsoft BASIC, a full imple- 
mentation of the standard BASIC used on the Apple, the Pet, the 
TRS-80, and many other popular microcomputers. In order to take 
advantage of all of the capabilities of the Atari, such as sound, 
player-missile graphics, etc., it was necessary for Microsoft to 
write a very large language. It occupies almost 20K from disk. 
There is also a 16K version available on ROM cartridge, with the 
added programming aids available from disk as a boot-up file. 
When using the complete Microsoft language, the user with a 
48K system will have only a little over 2 IK memory free for 
programming. 

For those of you who are unfamiliar with Atari's Microsoft 
BASIC, here are a few of its features. First, in Microsoft, no ab- 
breviations are allowed when keying in programs except for the 
"?" for PRINT. Second, there is no syntax checking at the time of 
line entry; therefore, keying errors are not flagged until the pro- 
gram is running. Third, spacing is more critical than in Atari 
BASIC, because failure to separate statements from numbers will 
result in a syntax error. 

Now for the positive side: I/O flexibility has been greatly 
improved. The INPUT command will let you substitute your own 
message for the default question mark. LINE INPUT will let you 
input a complete sentence and will ignore commas, quotation 
marks, and other delimiters. This is excellent for interactive ad- 
venture games because of the huge and continuous amount of 
user input required. The execution speed is incredibly fast, much 
faster than Atari BASIC. A comparison between the length of 
delay loops required in Atari Microsoft BASIC and Atari BASIC 
will substantiate this. 

The storing of information in Atari Microsoft is a very simple 
task, since strings can be dimensioned to hold all vocabulary 
words [e.g., dimensioning VOC$(20) would assign 20 different 
strings to the variable VOC$. VOC$(l) could equal TAKE, VOC$(2) 
could equal LOOK, etc.]. All item words, descriptions of all rooms, 
and all changing variable descriptions can also be stored in 
strings assigned to them. 

Halls of Death was designed with the aid of my good friend, 
Dave Simpson, who is responsible for introducing me to fantasy 
role-playing games. The program requires 32K with cassette or 
48K with disk drive. You will note that many of the messages the 
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program relays are encrypted to make the game more fun to play. 
Although they are printed in readable form for the player, anyone 
keying in the program will have less understanding of what is 
happening and therefore have more fun when the adventure can 
finally be played. 

THE OBJECTIVE 

To explore the Halls of Death, to find an invisible Golden Treas- 
ure Chest, and to return to room number 1. (More complete in- 
structions are included in the program's listing.) 

THE OBJECTS 

NOTE: I$(n) will contain the name of each item and I(n) will hold 
the room number. 



OBJECT 


LOCATION 


Iron key 


Room #1 


Gold key 


Room #2 


Funnel 


Room #3 


Bag of gold 


Room #4 


Glass 


Room #16 


Board 


Room #20 


Scroll 


Room #24 


Potion 


Room #25 


Dictionary 


Room #27 


Book 


Room #30 


Brass key 


Room #33 


Shovel 


Room #34 


Torch 


Room #46 


Matches 


Room #46 


Sword 


Limbo 


Acid (2) 


Limbo 


Wand 


Limbo 


Magic ring 


Limbo 


Silver key 


Limbo 


Ladder 


Limbo 


Fish 


Limbo 
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THE MAP 



[ 



If player has objects 
he will be transported 
to jail cell (Room 45) 



471 

Very small -*- 
room 



L-shaped 
passageway 



41 



"42] 



L-shaped 
passageway 



-1 



Entrance 
Iron key 




J 
u 
m 
P 



Narrow passageway 46 
Torch Matches 




Player needs to light torch 



35 



Large red room 



I 3p 

-* ►- Narrow passageway -* 

II 



37 



L-shaped 
passageway 



1 r 



r 



j 1 



38 



J L 



UJ 



L-shaped 
passageway 



39 



L-shaped 
passageway 



I 



40 



L-shaped 
passageway 



Narrow 
passage 



43 



44 



-+~ Small 
I room 



Player can become 
lost in L-shaped 
passageways without 
a map. Have 
footprints appear 
after player has 
wandered around. 
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To open Golden cage - 



Holds Silver key ' 



12 



Large room 

Pool of water 

Dragon 



Large drab 
room 



iGold key 



to 3 



Small room I t0 g 



X on floor 




Narrow passage 



14 



20 I to 21 



A large room 
Rough-cut walls 

Board 



Z__J 



Sma 

dusty 

room 

Potion 

T Ladder 



2R ■ 

Narrow hallway ~* +- Lar 9 e librar V 



To walk 
through fire 



Dictionary 



To cross acid 



Up 



Down 
28 



33 



Large square room 
Brass key 



A, I L 



Stair we I 



To translate scroll 



To open room 34 
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Player needs board to cross lake 



Player needs iron 
key to open gate 




Gives clue 



Player 

must dispose 

of creature 



Room directly under room no. 25 
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THE FLOWCHART 
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Run program 
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THE PROGRAM 

As was done in the PILOT program, this program is listed by 
program flow rather than in order of line numbers. 

Use the end of the program for main title, music, initiali- 
zation, and instructions since these routines are used only once. 

10 GOTO 2960 

2960 GRAPHICS 2: POKE 710, O: PRINT #6, AT 

(3,3); "halls o-F death": POKE 752,1:PRIN 

T "Cll spaceslby Jack Hardy" 

2970 PRINT "L"6 spaceslKeyed in by (ent 

er your name) ": RESTORE 3170:G0SUB 3120 

:G0SUB 3450 

Initialization Variables: 

I$(n) = item 

I(n) = location of item (Note: 99 sets item in limbo until 
needed.) 

DI$(n) = directions 

M(n) = monster 

Dl through D8 = door status 

Gl = gate status 

KH = keyhole 

LD = ladder 

R = room 

Q = message status 

TT = tracks 

IN = the number of items the player is carrying 

CN = contents of glass 

AN = wizard answer 

Read data and load into subscripted strings and variables. Note: 
DI$ is being created as a convenience routine to help the player 
move through the game faster by allowing him or her to issue 
one-letter commands for the direction in which he wants to go. 
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3120 DIM I*(23) , I (23) , DI* <6) ,M (3) : D1=0 

: D2=0 : D3=0 : D4=0 : D5=0 : D6=0 : D7=0 : D8=0 : 6 1 

=0:KH=0:LD=0 

3130 RANDOMIZE: FOR T=l TO 3iM(T)=l:NEX 

T: CN=0: R=l : TT=0: IN=0: Q=0 

3140 FOR T=l TO 22:READ I*(T):READ I (T 

) :NEXT 

3150 FOR T=l TO 6: READ DI*(T):NEXT 

3160 CLS=" [esc ctrl -]t39 spaces] ":CL1 

*=" E2 esc ctrl -'s]C38 spaces] ": RETURN 

3170 DATA SEHCTAM,46,LEV0HS,34,LL0RC5, 

24,YEK NORI, 1 , DROWS, 99, DICA, 99, DLOG FO 

GAB,4,DICA,99 

3180 DATA KOOB , 30 , SS ALG ,16, DNAW , 99 , LEN 

NUF,3,GNIR CIGAM,99,HCROT,46,YEK DLOG, 

2,YEK REVLIS,99 

3190 DATA YRAN0ITCID,27,N0IT0P,25,REDD 

AL, 99, YEK BSARB, 33, DRAOB, 20, HSIF, 99, N, 

S,E,W,U,D 

Subroutine to play the death march: 

3450 RESTORE 3480 

3460 READ A,B:IF AM THEN SOUND 0,A,10 

,8tF0R 1=1 TO B: NEXT: SOUND 0,0, 0,0: FOR 

1=1 TO 40: NEXT: GOTO 3460 

3470 RETURN 

3480 DATA 100,360,100,240,100,60,100,3 

60, 85, 480, 90, 360, lOO, 240, 105, 180, 100, 3 

60,0,0 

< * ) RUN 

Ask if instructions are needed. Read the keyboard and send to 
proper routine. If no key or wrong key is being pressed, continue 
looping: 

2980 PRINT #6,AT<1,7);"WANT INSTRUCTIO 

NS7C9 spaces] (Y/N) " 

2990 A*=INKEY*: IF A*="Y" THEN 3020 

3O00 IF A*="N" THEN GRAPHICS 0:POKE 71 

0,0: GOTO 2880 

3010 GOTO 2990 
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Instructions wanted ("Y"): The program comes here to change 
mode to graphics 0, poke colors into inner and outer window, cut 
off cursor, and print instructions. 

3020 GRAPHICS 0:POKE 710,130:P0KE 712, 

130: POKE 752, 1 

3030 PR I NT: PR I NT " You have been assig 

ned the duty o-f giving instructions 

to a warrior. ": PRINT 

3040 PRINT " The warrior's task is to 

explore the Halls o-f Death and i-f poss 

ible to" 

3050 PRINT "retrieve the GOLDEN TREASU 

RE CHEST which is invisible to most 

mortals. " 

3060 PRINT.-PRINT " The warrior is in t 

wo-way communica- tion and will report 

everything" 

3070 PRINT "he sees but will do nothin 

g until instructed by you." 

3080 PRINT: PRINT " There are rumors o-f 

a Magic Ring which will make the 

chest visible" 

3090 PRINT "to its owner." 

3100 PRINT: PRINT: PRINT " WHEN READY T 

BEGIN TRANSMISSION: 14 spaces] tin vers 

e] PRESS RETURN C inverse o-f-f]":GET A* 

3110 GOTO 2880 

Go to the room number indicated by the variable R. Example: If 
R= 1, the program will go to line 600; if R = 2 it will go to 610, etc. 
If R is more than 21, excecution drops to the next logical line and 
checks if R is less than or equal to 40. This step is necessary 
because each line of BASIC code can be no more than three 
physical lines long. 

2880 IF R<=21 THEN ON R GOTO 600,610,5 
0,70,90, 110, 120, 130, 150, 160, 170, 180, 19 
0, 200, 210, 220, 230, 240, 250, 260, 270 
2890 IF R<=40 THEN ON R-21 GOTO 290,30 
0,310,320,340,350,360,370,380,390,410, 
420, 430, 440, 460, 470, 480, 490, 500 
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2900 ON R-40 GOTO 510,520,530,540,550, 
560, 570, 600, 610, 520, 630 

Room #1: L$ = A description of location. Note: Other rooms can 
contain up to two other variable strings (Vl$ and V2$). These can 
change depending on what the player does in the adventure. L$, 
however, remains constant. Also, other rooms will contain the 
variables N,S,E,W,U,D to give R the next room number. But room 
#1 is a special case requiring a special kind of action to get to 
another location: 

600 L*=" THE HALLS OF DEATH. IN FRONT 
OF ME IS A NARROW PIT. BEYOND THE P 
IT IS A PASSAGEWAY. ": GOTO 870 

In the print routine, use the value of the variable R to set the 
colors of the rooms on the screen so that they will always be the 
same if the player comes back to them. Format the screen and 
print the information: 

870 SETCOLOR 6, R, 2: SETCOLOR 8, R, 2: PR IN 
T AT(1,0> ; "Cesc ctrl clear DC inverse/ 13 
spaces] I AM IN:C14 spaces/ in verse o-ffD 

il 

880 PRINT LS: PRINT VI*: PRINT V2* 

890 PRINT AT(2,7) ; " C inverse/13 spaces] 

EXITS ARE: C12 spaces/inverse o+fD" 

Print directions if value of direction variable is not equal to zero: 

9O0 IF NOO THEN PRINT " NORTH"; 

910 IF SOO THEN PRINT " SOUTH"; 

920 IF EOO THEN PRINT " EAST"; 

930 IF WOO THEN PRINT " WEST"; 

940 IF UOO THEN PRINT " UP"; 

950 IF DOO THEN PRINT " DOWN"; 

Print the items visible in this location. The routine below checks 
all available items in Location I(n) against the room number the 
player is currently occupying. If I(n) = room #, then it adds I$(n) 
to a string called IT$ along with a comma. When the search is 
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over, it removes the last comma from the string. If IT$ = " " (noth- 
ing) then let IT$ = GNIHTON. Go to a subroutine to convert the 
coded message into something readable: 

960 PRINT AT(2, 10) ; "[inverse/12 spaces 

3 ITEMS I SEE: CI 1 spaces!": IT$= B " 

970 FOR T=l TO 22: IF I(T)=R THEN IT*=I 

T*+" ,"+I*(T) 

980 NEXT: IF IT*<> M " THEN IT*=RIGHT» ( IT 

*,LEN(IT*)-2) 

990 IF IT*="" THEN IT*=" GNIHTON" 

1000 M*=IT«: PRINT AT (3, 1 1 ) ; : GOSUB 20:G 

OTO 1020 

Place the decoder subroutine near the beginning of the program. 
Note: Whenever BASIC is told to GOSUB (line number), it always 
starts at the lowest line number and checks down through the 
program until the line is found. It also uses this method in FOR/ 
NEXT loops; therefore, FOR/NEXT loop at the end of the program 
takes longer to execute than one at the beginning. So, by placing 
much-used subroutines at the beginning of the program, it will 
execute faster. 

The subroutine below reads the message in M$, starting at 
the end and reading to the beginning. It then prints each letter 
and uses the ATASCII value of that letter to create a sound effect. 

20 FOR T=LEN(M*) TO 1 STEP-1: PRINT MID 
*(M,T, 1) ; : SOUND O, ASC (MID (M*, T, 1) , 10, 1 
0: NEXT: SOUND O, 0, O, 0: RETURN 

The program turns on the cursor, prints a message and waits for 
input. After player's input, it turns off cursor and clears Cl$ and 
C2$. Nofe: Since the player will be using commands of more than 
one word, strings must be prepared to handle new input by clear- 
ing out any old information. This can be easily done by setting 
the string to equal closed quotation marks. Cl$ = first word from 
player input and C2$ = second word or series of words from input. 
(In this game, for example, there are four keys, none of which 
can be picked up with the command TAKE KEY. The player must 
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describe it as the brass key, the gold key, the silver key or the 
iron key. Therefore, the iron key could only be picked up by the 
command TAKE IRON KEY.) 

1020 POKE 752,0:PRINT AT (2, 16) ; " [invar 
verse / 10 spaces] BY YOUR COMMAND: C9 s 
paces] ": INPUT CO*: POKE 752, 1 : Cl$=" " : C2 
*="":D3=0 

The next line checks to see if user input is more than one letter. 
If it is, the program jumps to line 1210. If not, the program checks 
the next line to see if anything at all was entered. If nothing was 
entered, it enters a message into M$ and jumps to 1010. 

1030 IF LEN(C0*)>1 THEN 1210 
1040 IF C0*="" THEN M*="!EM NODRAPCesc 
Ctrl 21": GOTO 1010 

Line 1010 sends the program to the decoder subroutine, jumps to 
a subroutine to delay (timed by the length of the message) the 
program so the message can be read, then clears it from the 
screen and returns for more user input. 

lOlO GOSUB 20:G0SUB 3490 

3490 FOR T=l TO LEN (M*) * 100: NEXT: PRINT 
CL*:PRINT CL1*: C0*=" ": RETURN 

If the input of the player was indeed one letter, a routine is 
necessary to check to see if it was to use the convenience direc- 
tional string, DI$. With the use of a FOR/NEXT loop, the program 
checks each letter in the DI$ string to see if it matches the player's 
input. If it does, then Tl will be set to the value of T (the location 
within DI$). But, if after checking all the letters in DI$, no matches 
are found (the variable Tl still equals 0), the program places a 
message in M$ and sends the program to line 1010 again. 

1050 Tl=0»FOR T=l TO 6: IF CO*=DI*(T) T 
HEN T1=T:T=6 

1060 NEXT: IF TK1 THEN M*="!!TAHT DNAT 
SREDNU T'NDID ICesc Ctrl 2D": GOTO 1010 
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The program checks the value of Tl and goes to a routine which 
checks the value of the direction variable (N,S,E,W,U, or D). If it 
equals zero, the program jumps to a message routine. If it is more 
than zero, R (room number variable) receives the value of the 
direction variable and jumps to a routine to change locations. 

1070 ON Tl GOTO 1080,1100,1120,1140,11 
60, 1180 

1080 IF N=0 THEN 1200 
1090 R=N:G0T0 2840 
1100 IF S=0 THEN 1200 
1110 R=S:G0T0 2840 
1120 IF E=0 THEN 1200 
1130 R=E:G0T0 2840 
1140 IF W=0 THEN 1200 
1150 R=W:G0T0 2840 
1160 IF U=0 THEN 1200 
1170 R=U:G0T0 2840 
1180 IF D=0 THEN 1200 
1190 R=D:G0T0 2840 

1200 M*=" ! ! INOITCERID TAHT NI OG T'NAC 
ICesc Ctrl 2D M :G0T0 1010 

The routine to change locations tells the player OK, then clears 
the variables: 

2840 PR I NT : PR I NT " OKAY ! " 

2870 L*= " " : V 1 *= " " : V2*= " " : I T*= " " : C0*= " " 

: N=0: S=0: E=0: W=0: U=0: D=0 

Now, type LIST 2840-2900 and hit RETURN. You can see that you 
are back to the routine that checks variable R and jumps to the 
appropriate room. 

<*)RUN 

Up to now, the program produces the title, gives instructions, 
and prints a description of the player's location. Now, to solve 
the problem of moving in Room #1, it is necessary to create a 
vocabulary. There are several ways to do this. Presented here is 
the most straightforward way. Later, another way to create and 
handle the program's vocabulary will be presented. 
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In line 1030, the program sent control to line 1210 if the player 
input was more than one letter. Here, the two-word commands 
will be separated into a string for each word by looking for a 
space between the words. Upon finding a space it will place the 
words on either side of the space into two smaller strings, Cl$ 
and C2$. Here is where the fun begins — the words must then be 
reversed to match the coded versions of the vocabulary. This is 
done by a subroutine in line 30. Upon returning, each word is 
then reduced to its first three letters and they will be processed 
in this manner throughout the rest of the program. Nofe: the 
player could now input only the first three letters of each word 
and the program would understand them in that form. 

1210 FOR T=l TO LEN<CO*):IF MID* (CO*, T 
,1)=" " THEN C2*=RIGHT*(C0*,LEN(C0*)-T 
):T=LEN<CO*) 

1 220 NE X T : C 1 *=CO* : C4*= " " : C3*=C 1 * : GOSUB 
30 : C 1 *=R I GHT* ( C4* , 3 ) : C4*= " " : C3*=C2* : G 
OSUB 30:C2*=RI6HT*(C4*,3) 

30 FOR T=LEN(C3*> TO 1 STEP-1 : C4*=C4*+ 
MID*(C3,T, 1) : NEXT: RETURN 

Note: In line 1210, the command following the IF/THEN statement, 
T = LEN(CO$), sets the FOR/NEXT loop to maximum so that the 
program will not continue to loop and change the contents of 
C2$. This method is used at other times to speed up the program 
when a match is found, as in line 1050 when Tl is set, T is set 
to maximum. 

Below is the straightforward way of checking the words in the 
vocabulary. Remember that each word the player typed in has 
been reduced to three letters and is now in reverse. These are 
the words that are being matched. 

1230 IF Cl*=" OG" THEN 1450 

1240 IF C1*=' , LNU" OR Cl*="EPO" THEN 15 

50 

1250 IF C1*= ,, MUJ M THEN 1620 

1260 IF Cl*=" ILC" THEN 1680 

1270 IF C1*="VIG" OR Cl*=±"ORD" OR Cl*= 

"RHT" THEN 1720 
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1280 IF C1*="TEG" OR C1*="KAT" THEN 18 

50 

1290 IF C1*="00L" OR C1*="AXE" THEN 18 

10 

1300 IF C1*="LEH" THEN M*=".GNIDAER YB 

TOL A NRAEL ELPOEP" : GOTO 1010 
1310 IF C1*="AER" THEN 1950 
1320 IF C1*="IRD M THEN 2220 
1330 IF C1*="VAW" THEN 2280 
1340 IF C1*="LIK" OR C1*="GIF" THEN 23 
30 

1350 IF C1*="EPS" OR C1*="YAS" THEN 24 
60 

1360 IF C1*="EEF" OR C1*="U0T" THEN 25 
40 

1370 IF C1*="VNI" THEN 2580 
1380 IF C1*="TXE" AND I(14)=0 AND DK=1 

THEN DK=0:G0T0 2840 
1390 IF C1*="GIL" AND I ( 1 ) =0 AND 1(14) 
=0 AND DK=0 THEN DK=1 : I* ( 14) ="HCROT GN 
INRUB":GOTO 2840 

1400 IF C1*="IRW" OR C1*="GIS" THEN 26 
30 

1410 IF Cl*="UOP" AND RIGHT* ( I*< 10) , 8) 
="F0 SBALG" THEN I* ( 10) ="SSALG" : GOTO 2 
680 

1420 IF C1*="GID" AND I(2)=0 THEN 2740 
1430 IF C1*="SNI M OR C1*="ESU" THEN 27 
70 

1440 M*="!!TNAW UOY TAHW DNATSREDUN T* 
NOD I [esc Ctrl 2]": GOTO 1010 

Note: In line 1390, for example, in addition to looking for a match 
with the word LIGHT, the program is also checking to see if the 
player has the necessary torch and matches. If no matches are 
found by the time the player reaches line 1440, M$ is given a 
message which jumps to line 1010 to be displayed, read, erased, 
and then the program waits for further input. 

Now create a routine for the word JUMP (line 1250). Note: there 
are many reasons to jump in this program. All of them are defined 
here. First, the program must always check the Room (R) to see 
if the player is allowed to jump. 
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1620 IF R=51 OR R=6 THEN M*=" ! ! ! PU H6I 
H OOT S'TI" : GOTO 1010 

1630 IF R=5 OR R=4 THEN M*=" ! ! ! SSORCA 
RAF OOT S'TI": GOTO 1010 

In line 1640 a way to jump into the pit will be created. In line 
1650 and 1660 ways to jump over the pit will be created. 

1640 IF C2*="W0D" AND R=l OR C2*="W0D" 

AND R=46 THEN R=6:G0T0 2840 
1650 IF LEFT*<C4*,3)="TIP" AND R=l THE 
N R=46:G0T0 2840 

1660 IF LEFT*(C4*,3)="TIP" AND R=46 TH 
EN R=1:G0T0 2840 
1670 M*="? ? ? EREHW PMUJ":G0T0 1010 

Now that movement to other rooms is possible, addition of more 
program lines describing new rooms is necessary. 

110 L*=" THE BOTTOM OF A PIT. SOUTH I 

SEE A DOOR WITH NO HANDLE. ON A TAB 

LE IS A BOOK AND PEN." : GOTO 860 

440 L*=" A LARGE RED ROOM. " : S=38:N=46: 

E=36:W=47:IF TT>1 THEN Vl*=" THERE ARE 

FOOTPRINTS IN THE DUST. " 

450 GOTO 870 

460 L*=" A NARROW PASSAGE. ": W=35: E=37: 

GOTO 870 

470 L*=" AN L-SHAPED PASSAGE. ": S>=40| W= 

36: GOTO 870 

480 L*=" AN L-SHAPED PASSAGE. ": W=41 : N= 

35: GOTO 870 

490 L*=" AN L-SHAPED PASSAGE. ": E=40: S= 

42: GOTO 870 

500 L*=" AN L-SHAPED PASSAGE. ": N=37: W= 

39: GOTO 870 

510 L*=" AN L-SHAPED PASSAGE. ": S=42: E= 

38: GOTO 870 

520 L*=" AN L-SHAPED PASSAGE. ": TT=»TT+1 

:E=43:N=41:G0T0 870 

530 L*=" A NARROW PASSAGE. ": TT=TT+1 : W= 

42:E=44:G0T0 870 

540 L*=" A SMALL ROOM. ": N=39: W=43: GOTO 



HALLS OF DEATH 55 

870 
550 L*=" A SMALL JAIL CELL. THERE IS A 

SIGN ON THE WALL. THROUGH THE BARS I 
SEE A TORTURE CHAMBER .": GOTO 870 
560 L*=" A NARROW PAGGAGE. THERE IS A 
PIT NORTH. ":S=35: GOTO 870 
570 T1=0:F0R T=l TO 22: IF I(T)=0 THEN 
T1=T:T=22 

580 NEXT: IF T1>0 THEN R=45:G0T0 2880 
590 L*=" A VERY SMALL ROOM. ": E=35: GOTO 

870 

Now, line 860 must be added so that line 110 will have some 
place to go. Check to see if D7 has been set to 1 and, if so, open 
the door and set the directional variable. 

860 IF R=6 AND D7=l THEN Vl*=" THE DOO 
R IS OPEN":S=ll 

<*>RUN 

Use of the Jump and one-letter commands for direction enable 
the player to move around in the adventure. Now create a routine 
to add darkness to the dungeon. Add line 2850 to ascertain if 
player is carrying a torch. 

2850 IF 1(14)00 THEN DK=0 

Change line 2840. 

2840 PR I NT: PR I NT "OKAY!" : IF DK=0 THEN 
GOSUB 3200 

Add the following subroutine: 

3200 I*<14)="HCR0T": IF R=l OR R=46 OR 
R=35 THEN RETURN 

3210 POKE 764, 255: POKE 710,0: POKE 712, 
0:PRINT "[esc ctrl clear / inverse / 6 
spaces} I CAN'T SEE - WHERE AM I7C5 sp 
aces]" 

3220 PRINT AT (2, 15) ; "[inverse / 13 spa 
ces] COMMAND? C14 spaces]" 
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3230 PRINT AT ( 16, 7) ; " Cctrl FMG /space 

/ctrl FMGD" 

3240 FOR EY=1 TO 2: PRINT AT ( 16, 8) ; " Csp 

ace/ctrl T/3 spaces/ctrl T/spacel" 

3250 FOR T=l TO 150:NEXT T 

3260 PRINT AT < 16, 8) ; "Cctrl T/3 spaces/ 

ctrl T/2 spaces]" 

3270 FOR T=l TO 150: NEXT T 

3280 PRINT AT (16, 8) ; "Cspace/ctrl T/3 s 

paces/ctrl T/spaceD" 

3290 FOR T=l TO 150:NEXT T 

3300 PRINT AT (16, 8) ; " C2 spaces/ctrl T/ 

3 spaces/ctrl T]" 

3310 FOR T=l TO 150: NEXT T 

3320 PRINT AT (16, 8); "Cspace/ctrl T/3 s 

paces/ctrl T/space]" 

3330 FOR T=l TO 150: NEXT T:NEXT EY: IF 

PEEK (764)0255 THEN 3360 

3340 PRINT AT (16, 8) ;" Cspace/ctrl RR/2 

spaces/ctrl RR]" 

3350 FOR T=l TO 200: NEXT: GOTO 3240 

Note: The first line sets the value of I$(14) to TORCH, then checks 
to see what room player is in (Room 1, 35, and 46 are the only 
places the player can be without a burning torch). The second 
line prepares the keyboard for input, turns the screen black, and 
prints a message. The rest of the routine is a straightforward 
way of making a set of moving, blinking eyes and checks for a 
key to be touched. 

Now, set up a way to get back to the main program: 

3360 POKE 752,0: POKE 764, 255: INPUT AT ( 
2,16) CO*: IF LEN(C0*)<3 THEN PRINT AT ( 
2, 16) ; " " :GOTO 3360 
3370 POKE 752,1: IF LEFT* (CO*, 3) ="LIG" 
AND I(1)=0 AND I(14)=0 THEN DK=1:G0SUB 

3500: I*(14)=I*(14)+" GN I NRUB ": RETURN 
3380 IF LEFT*(C0*,3)="LIG" AND I ( 1 X >0 

THEN M*=" ! ISEHCTAM YNA EVAH T'NOD I": 
GOSUB 20:G0SUB 3490: GOTO 3360 
3390 IF LEFT*(C0*,3)="LIG" AND I(14)<> 
O THEN M*="' !HCROT A EVAH T'NOD I " : GOS 
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UB 20:G0SUB 3490: GOTO 3360 
3400 M*="!!KRAD EHT NI SGNIHT OD OT 
SUOREGNAD S'TI": GOSUB 20:G0SUB 3510: G 
OTO 2910 

Note: the only way back to the main program is to light the torch. 
Any other action can be fatal. 

There are three other possible directions in which the above 
routine can go, depending upon the player's input. Each is self- 
explanatory. The following subroutines say OK and delay the 
program for messages to be read: 

3500 PRINT "OKAY! ": FOR T=l TO 150: NEXT 
: RETURN 

3510 FOR T=l TO LEN (M*> * 100: NEXT: RETUR 
N 

This routine allows the player another chance: 

2910 GRAPHICS 0:POKE 752,1:P0KE 710,0: 
GOSUB 3450: PR I NT AT (2, 10) ; "YOU SEEM TO 
HAVE GOTTEN YOUR WARRIOR KILLED." 
2920 PRINT: PRINT "WOULD YOU LIKE TO SE 
ND ANOTHER ONE DOWN TO TRY AGAI 
N (Y/N)": PRINT 

2930 A*=INKEY*: IF A*="Y" THEN RUN 
2940 IF A*="N" THEN M*=" ! EMITEMOS NIAG 
A YRT": GOSUB 20: END 
2950 GOTO 2930 

Now, in order for the player to survive, the routine from line 1280 
must be completed to allow the items in each room to be taken. 

1850 IF C2*="DAL" AND R=25 OR C2*= M DAL 
" AND R=51 THEN I ( 19) =0: LD=1 : D6=0: GOSU 
B 35OO:G0TO 2880 
1860 IF C2*="OOB" AND R=6 OR C2*="NEP" 

AND R=6 THEN M*=".LLAW EHT OT DENIAHC 

SI TI":GOTO 1010 
1870 IF IN>4 THEN M*=".EROM GNIHTYNA Y 
RRAC T'NAC I [esc ctrl 23": GOTO 1010 
1880 T1=0:F0R T=l TO 22: IF C2*=RIGHT*( 
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I*(T),3) AND I(T)=R THEN I (T) =0t T1=T: T 
=22 

1890 NEXT: IF Tl=6 OR Tl=8 THEN 1930 
1900 IF R=31 AND I(10)=0 AND C2*= , *TAW' , 
THEN I*(10)="RETAW FO SSALG" : M»=I* ( 10 
)+" A EVAH U0Y":CN=1:G0T0 1010 
1910 IF T1>0 THEN IN=IN+1 : GOSUB 3500: G 
OSUB 40: GOTO 960 

1920 M*="!EREH TI EES T'NOD I":G0TO 10 
10 

1930 IF I<10)=0 THEN I*(10)="DICA FO B 
SALG " : I ( T 1 ) =R : CN=2 : GOSUB 3500 : GOSUB 40 
:GOTO 960 

1940 I (T1)=R:M*=" IRENIATNOC ON EVAH I" 
:GOTO 1010 

Note: The routine checks to see how much the player is carrying; 
if more than 4 items, it prints a message and returns to input. 
Next it checks for what items the player wants and to ascertain 
that he or she is in the room with the item. Then it adds the items 
to the player's inventory by setting the value to zero [I(n) = = in 
player's possession = n = room number] or prints another 
message. 

A routine to delete the items from the screen that are picked up 
is needed next. 

40 PRINT AT(2, 11>;"C8 esc shift delete 
5]": RETURN 

(t)RUN 

In order to allow the player to see the items being carried, the 
inventory routine from line 1370 must be completed. It loops to 
check each item and any time it finds one equal to zero, it prints 
it on the screen. 

2580 PRINT "[esc ctrl clear / inverse 
/ 8 spaces] WARRIOR'S INVENTORY: C7 spac 
es]: PRINT: PRINT 

2590 FOR CH=1 TO 22: IF I(CH)=0 THEN M* 
=I*(CH> : GOSUB 20: PRINT 
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2600 NEXT: PRINT AT (7, 22) ; "PRESSCinvers 

e3 ANY KEY [inverse o-ffDTO CONTINUE" :P 

OKE 764,255 

2610 IF PEEK (764) =255 THEN 2610 

2620 POKE 764, 255: GOTO 2880 

( * ) RUN 

To test your program so far, pick up the items you find and then 
type INVENTORY. 

Add the rest of the rooms. Note: There will be many variables 
Vl$ and V2$, each of which is checked again in lines 660, 680, 
etc. These lines will be added shortly. 

50 L*=" A HALLWAY. THERE IS A METAL DO 
OR WEST AND AN IRON GATE EAST.":V 
1*=" THE DOOR IS LOCKED. " 
60 V2*=" THE GATE IS LOCKED. ": S=8: GOTO 

660 
70 L*=" THE WEST END OF A FOUL SMELL IN 
G ROOM. AN IRON GATE IS WEST." 
80 Vl*=" MY WAY EAST IS BLOCKED BY A P 
OOL OF LIQUID. ":V2*=" THE GATE IS LO 
CKED. ":GOTO 680 

90 L*=" THE EAST END OF A FOUL SMELL IN 
G ROOM. " 

100 Vl*=" MY WAY WEST IS BLOCKED BY A 
POOL OF LIQUID. ":S=10:G0T0 690 
120 L*=" A SMALL ROOM. " : Vl*=" AN X IS 
MARKED ON THE FLOOR. " lE=8: S=14: GOTO 71 
O 
130 L*=" A HALLWAY. A MAN'S BODY IS ON 

THE FLOOR. CHALK IS IN HIS HAND A 
ND THERE IS WRITING ON THE WALL." 
140 N=3:E=9:W=7:V1*=" A GIANT BLOCKS A 

DOORWAY SOUTH. ": GOTO 770 
150 L*=" A NARROW PASSAGE. FIRE BLOCKS 
MY WAY SOUTH. " :W=8: GOTO 870 
160 L*=" A NARROW PASSAGE. A FOUL SMEL 
L COMES FROM THE NORTH. ": N=5: E=l 1 : GOT 
870 
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170 L*=" A NARROW PASSAGE. AN IRON DOO 
R LEADS WEST.":V1*=" THE DOOR IS LOCK 
ED. ":N=6:S=17:G0T0 720 

180 L*=" A LARGE ROOM. IN THE CORNER I 
S A POOL OF WATER. ":V1*=" THERE IS A D 
RAGON IN THE ROOM. " : E=13: S=1B: GOTO 730 
190 L*=" A SLOPING PASSAGEWAY. ": W= 12: E 
=14: GOTO 870 

200 L*=" A NARROW PASSAGEWAY. THERE IS 
GRAFITTI ON THE WALL. " : W=13: N 
=7: GOTO 870 

210 L*=" A LARGE ROOM. " : Vl*=" I'M OUTS 
IDE A GOLDEN CAGE. INSIDE I SEE THE 
MAGIC RING. ":N=8:S=21 : GOTO 650 
220 L*=" A LARGE CAVERN. ": N=9: GOTO 870 
230 L*=" A HALLWAY WITH AN ARROW CARVE 
D IN THE WALL POINTING SOUTH. ":N=1 
1:S=24:G0T0 740 

240 L*=" A LARGE PASSAGEWAY" : N= 12: E=19 
:S=26:G0T0 870 

250 L*=" A TORTURE CHAMBER. A SMALL CE 
LL IS IN THE NORTH CORNER. IN THE C 
ELL IS A SIGN. ":W=18:G0T0 870 
260 L*=" A LARGE ROOM WITH ROUGH-CUT W 
ALLS. THERE ARE STAIRS GOING UP.":U 
=28:E=21:G0T0 870 

270 L*=" A T-SHAPED PASSAGE WITH A DOO 
R NORTH. ": VI *=" THE DOORWAY IS 
GUARDED BY A GIANT." 
280 W=20:E=22:GOTO 760 

290 L*=" A T-SHAPED PASSAGEWAY .": S=29 : 
W=21:E=23:G0T0 870 

300 L*=" A CLOVER-SHAPED ROOM. " : W=22: E 
=24: GOTO 870 

310 L*=" A STAR-SHAPED ROOM. " : S=31 : W=2 
3:N=17:G0T0 870 
320 L*=" A SMALL DUSTY ROOM. A DOOR IS 

ON THE EAST WALL. " 
330 Vl*=" THE DOOR IS CLOSED. ": V2*=" T 
HERE IS A SILVER DOOR IN THE FLOOR W 
ITH A LADDER GOING DOWN." : GOTO 780 
340 L*=" A NARROW HALLWAY. THERE IS A 
DOORWAY SOUTH. ": VI *=" THE DOOR IS CLO 
SED . " : N= 1 8 : E=27 : GOTO 800 
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350 L*=" A LARGE LIBRARY. THERE ARE ST 
AIRS GOING DOWN. ":W=26:D=28: GOTO 8 
70 

360 L*=" A STAIRWELL. ":U=27:D=20: GOTO 
870 

370 L*=" A LABORATORY. ": VI *=" THERE IS 
A WIZARD WITH A WAND. ": N=22: E=30: GOTO 
810 
380 L*=" A LARGE RECTANGULAR ROOM.":W= 
29:E=31:G0T0 870 

390 L*=" A LARGE CAVERN. WATER IS RUNN 
ING DOWN THE WALLS AND HAS FORMED 

A LARGE LAKE. " 
400 Vl*=" THERE IS SOMETHING MOVING IN 
T HE LAKE . " : W=30 : N=24 : GOTO 820 

' A LARGE LAKE. TO THE SOUTH I 
TUNNEL. ":W=31: S=50: GOTO 870 
A LARGE SQUARE ROOM WITH A LO 
CE I L I NG . " : N=26 : GOTO 870 
A VERY SMALL ROOM. ": W= 17: GOTO 

A LARGE DRAB ROOM. " : E=3: GOTO 

A LONG WINDING TUNNEL. THE FL 
DAMP. THERE IS GRAF ITT I ON TH 
:W=51:N=32:G0T0 870 
1 THE WEST END OF A TUNNEL.": VI 
*=" THERE IS A LADDER LEADING UP TO A 

SILVER DOOR. " 
640 V2*=" THE SILVER DOOR IS LOCKED.": 
E=50:G0T0 830 

The routines below check to see if certain conditions have been 
met: Is player in correct room [R]? Has the door variable [Dn] been 
changed? Has the monster [M(n)] left? If all conditions have been 
met, it changes variables Vl$ and V2$ to new descriptions. 

650 IF R=15 AND D8=l THEN Vl$=" I'M IN 

A GOLDEN CAGE. " 
660 IF R=3 AND Dl=l THEN Vl*=" THE DOO 
R IS OPEN. " :W=2 

670 IF R=3 AND Gl=l THEN V2*=" THE GAT 
E IS OPEN. " :E=4 



410 


L*=' 


SEE 


A 


420 


L*=' 


W 




430 


L*=' 


870 


610 


L*=' 


870 




620 


L*=' 


OOR 


IS 


E WALL. ' 


630 


L*=' 
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680 IF R=4 AND Bl=l THEN V2*=" THE GAT 
E IS OPEN. ":W=3 

690 IF R=5 AND I (21) =5 OR R=5 AND 1(21 
)=4 THEN Vl*=" THERE IS A BOARD ACROSS 

THE LIQUID. ":W=4 
700 IF R=4 AND I (21) =5 OR R=4 AND 1(21 
)=4 THEN Vl*=" THERE IS A BOARD ACRESS 

THE LIQUID. ":E=5 
710 IF R=7 AND D4=l THEN Vl*=" THERE I 
S A HOLE IN THE FLOOR. u 

720 IF R=ll AND D2=l THEN Vl*=" THE IR 
ON DOOR IS 0PEN.":W=10 
730 IF R=12 AND M ( 1 ) =0 THEN Vl*«="" 
740 IF R=17 AND KH=1 THEN Vl*=" THERE 
IS A BRASS KEYHOLE IN THE WALL." 
750 IF R=17 AND KH=2 THEN Vl*=" THERE 
IS AN OPEN PANEL ON THE EAST WALL. " 
760 IF R=21 AND M(2)=0 THEN Vl«=" THE 
DOOR IS OPEN AND UNGUARDED. ": N= 15 
770 IF R=8 AND M(2)=0 THEN Vl*=" THE D 
OOR IS OPEN AND UNGUARDED. "s S= 15 
780 IF R=25 AND D3=l THEN Vl*=" THE DO 
OR IS OPEN. ":E=26 

790 IF R=25 AND LD=1 THEN V2*=" M 
800 IF R=26 AND D5=l THEN Vl*=" THE DO 
OR IS OPEN. ":S=33 

810 IF R=29 AND I(7)=99 THEN Vl*="" 
820 IF R=31 AND M(3)=0 THEN Vl*="" 
830 IF R=51 AND LD=1 THEN Vl*=" THERE 
IS A SILVER DOOR ABOVE ME.":U=0 
840 IF R=51 AND D6=l THEN V2*=" THE SI 
LVER DOOR IS OPEN." :U=25 
850 IF I(13)=0 THEN I* ( 18) ="TSEHC ERUS 
AERT NEDLOG": I (18) =44 

The completion of the program's vocabulary is needed next. The 
remainder of the places the player can GO will be added to the 
routine from line 1230. 

Examples: Line 1450 checks the second word of player input (Lad- 
der), ladder location, player location, and if door is open. Line 
1460 checks word input (Lake), player location, if monster is still 
there, etc. Lines 1520 and 1530 check to see if the player asks to 
go in a direction by using the first letter of the player's second 
word and compares it to the directional string, DI$(n). 
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1450 IF C2*="DAL" AND I<19)=99 AND R=5 

1 AND D6=l THEN R= 25: GOTO 2840 

1460 IF C2*="KAL" AND R=31 AND M(3>=1 

THEN M*=" !!GEL YM TA GNILBBIN SI GNIHT 

EMOS":GOSUB 20:G0SUB 3490: GOTO 2910 

1470 IF C2*="NUT" AND R=32 THEN R=50:G 

OTO 2840 

1480 IF C2*="KAL" AND R=31 THEN R=32:D 

K=0:GOTO 2840 

1490 IF C2*="DAL" AND R=6 AND K19)=R 

THEN R=l:GOTO 2840 

1500 IF C2*="W0D" AND R=l OR C2*="W0D" 

AND R=46 THEN R=6:G0T0 2840 
1510 IF C2*="RIF" AND I (18) =99 AND R=9 

THEN R=16:G0T0 2840 
1520 T1=0: FOR T=l TO 6: IF RIGHT* (C2«, 1 
)=DI*(T) THEN T1=T 
1530 NEXT: IF T1>0 THEN 1070 
1540 M*="? ? ? ? ? EREHW OGCesc Ctrl 2 
]":GOTO 1010 

Next, the routine to SIGN or WRITE from line 1400: 

2630 IF C2*="MAN" AND R=6 OR C2*="00B" 

AND R=6 THEN 2660 
2640 IF C2*="" THEN M*="??TAHW ETIRW": 
GOTO 1010 

2650 M*="???"+C4*+" ETIRW I DLUOHS YHW 
":GOTO 1010 

2660 INPUT "ENTER YOUR NAME Cesc esc/e 
sc Ctrl *]" ;NA*:IF LEN(NA*)<2 THEN PRI 
NT "C2 esc ctrl -'s]":GOTO 2660 
2670 D7=1:G0T0 2880 

( * ) RUN 

The next words to be added are OPEN and UNLOCK, because 
both are sent to the same routine from line 1240. Here the program 
checks for word, room, and sometimes the proper key — 1(4), 1(15), 
K16). 

1550 IF C2*="OOD" AND R=ll AND I(4)=0 

THEN D2=1:G0T0 2880 

1560 IF <C2*="TAG" AND R=3 AND I(4)=0) 



64 INTERACTIVE ADVENTURES 

OR (C2*="TAG" AND R=4 AND I<4)=0) THE 
N Gl=l:GOTO 2880 
1570 IF C2*="GAC" AND R=15 AND I<15)=0 

THEN D8=l: 1(13) =15: GOTO 2880 
1580 IF C2*="00D" AND R=26 THEN D5=lrG 
OTO 2840 

1590 IF C2*="00D" AND R=25 THEN D3=*1:E 
26: GOTO 2880 
1600 IF C2*="LIS" AND I<16)=0 AND R=51 

THEN D6=1:G0T0 2840 
1610 M*="!!T'NAC I " : GOTO 1010 

Now, add to the word CLIMB in 1260. Here the routine checks to 
see if the player is permitted to climb and, if not, uses the fact 
that the player's second word is stored in C4$ intact to tell what 
object he or she is not allowed to climb: 

1680 IF C2*= ,, LAW M THEN M*="!0T NO DLOH 

OT GNIHTON SI EREHT":GOTO 1010 

1690 IF C2*="DAL" AND I(19)=R AND R=6 

THEN R=1:60T0 2840 

1700 IF C2*="DAL" AND I(19)=R AND R=51 

THEN R=25:G0T0 2840 
1710 M*=" ! ! "+C4*+" BMILC T'NAC I " : GOTO 

1010 

The next words to be added are DROP, GIVE, and THROW. Each 
of these sends the program here from line 1270. This checks to 
see if the player is indeed carrying the object he or she wants 
to drop, and if dropping it in a certain location will cause some- 
thing else to happen; if so, it then makes it happen. 

1720 T1=0:F0R T=l TO 22: IF C2*=RIGHT*( 
I*(T),3) AND KT)=0 THEN I (T) =R: T1=T: T 
=22: IN=IN-1 

1730 NEXT: IF R=45 THEN 2790 
1740 IF Tl=7 AND R=29 THEN I ( 1 1 ) =29: M$ 
=".SRAEPPASID DNA DNAW SPORD DRAZIW":I 
(7)=99:G0SUB 20:G0SUB 3510: GOTO 2880 
1750 IF Tl=21 THEN 2840 

1760 IF Tl=22 AND R=31 THEN M(3)=0:I(T 
1) =99: I (5) =32: GOTO 1800 



HALLS OF DEATH 65 

1770 IF Tl=19 AND R=25 OR Tl=19 AND R= 

51 THEN LD=0:BOTO 2840 

1780 IF T1>0 THEN GOSUB 3500:G0SUB 40: 

BOTO 960 

1790 M*=" !TAHT EVAH T'NOD I " : GOTO 1010 

1800 M*=".SRAEPPASID NEHT DNA ERUTAER 

C EHT STAE - SRAEPPA NOGARD A": GOSUB 2 

O: GOSUB 3510: GOTO 2880 

There are two special routines that may happen when the player 
drops items. The first checks to see if the torch was dropped, as 
it is necessary to carry the torch at all times for light. 

2850 IF 1(14)00 THEN DK=0 

Second, the only way a player can get out of the jail cell is to 
drop all of the items he or she is carrying. In order to accomplish 
this, a routine must be created to check the player's inventory. 
The program comes here from line 1730. 

2790 I(T1)=35:IF Tl=4 THEN I(T1)=19 
280O IF Tl = 14 THEN I* (Tl ) = ,, HCROT" 
2810 T1=0:F0R T=l TO 22: IF I(T)=0 THEN 

T1=T:T=22 
2820 NEXT: IF T1>0 THEN GOSUB 3500:G0SU 
B 40: GOTO 960 
2830 R=47:G0T0 2880 

Here, add the words LOOK and EXAMINE to the routines from 
line 1290. 

1810 IF C2*="KAL" AND R=31 AND M(3)=l 

THEN M*=" ITHGIRLA EREHT ERUTAERC A S'E 

REHT":G0T0 1840 

1820 IF C2*="QIL" AND R=4 AND C2*="QIL 

" AND R=5 THEN I (6) =4: I (8) =5: GOTO 2840 

1830 M*=".LAICEPS GNIHTON EES I " : GOTO 

1010 

1840 GOSUB 20: GOSUB 3490: M*=" ! YRGNUH S 

KOOL TI" :GOTO 1010 

Complete the routine in line 1310 to READ books, walls, etc. 
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1950 IF C2*="RCS" AND I(3)=0 AND 1(17) 

=0 THEN M*="'W0RRA HCUOT' : SYAS LLORCB 

":GOTO 1010 

1960 IF C2*="RCS" AND I(3)=0 THEN M*=" 

.EM OT KEERG S*TI":GOTO 1010 

1970 IF C2*="CID" AND I(17)=0 THEN M*= 

"'YRANOITCID KEERG' SYAS REVOC" : 1$ ( 17) 

=I*(17)+" KEERG": GOTO 1010 

1980 IF R=6 THEN 2140 

1990 IF C2*="00B" AND K9X>0 THEN M$= 

" !TI EVAH T'NOD I " : GOTO 1010 

2000 IF I(13)=0 THEN 2100 

2010 IF C2*="00B" AND R=9 THEN M*=".TO 

H NEHW SPLEH DLOC GNIHTEMOS" : GOTO 1010 

2020 IF C2*="OOB" AND R=3 THEN M*=".LA 

TEM TAE SEVISORROC" : GOTO 1010 

2030 IF C2*="00B" AND R=4 THEN M*=" -DO 

OW FO EDAM ERA SEGDIRB" : GOTO 1010 

2040 IF C2*="00B" AND R=12 THEN MS=".C 

I GAM ERA SNOGARD":GOTO 1010 

2050 IF C2*="00B" AND R=29 THEN M»=".T 

NATROPMI SI N0ITACINUMM0C":G0T0 1010 

2060 IF C2*="00B" AND R=5 THEN M*="LUO 

F LLEMS YLLAUSU SLACIMEHC" : I (6) =4: I (8) 

=5:G0SUB 20:G0SUB 3510: GOTO 2880 

2070 IF C2*="00B" AND R=30 THEN M*="'E 

GDELWONK FO KOOB' : SDAER REVOC": GOTO 1 

010 

2080 IF C2*="00B" AND R=25 AND I(18)=0 

THEN M*=".KNIRD 6NIL00C A": GOTO 1010 
2090 IF C2*="00B" AND I(9)=0 THEN M*=" 
.TI NI NOITAMROFNI YNA DNIF T'NAC I " : G 
OTO 1010 

2100 IF C2*="00B" AND Q=0 THEN M*="!YT 
PME SAW MOOR EHT" : Q=l : GOTO 1010 
2110 IF C2*="00B" AND Q=l THEN M*="!06 

UOY DNUOR DNA DNUOR" : Q=2: GOTO 1010 
2120 IF C2*="00B" AND Q=2 THEN M*="!!W 
OL DNA HGIH KOOL" : GOTO 1010 
2130 IF <C2*="GIS" AND R=45) OR <C2*=" 
GIS" AND R=19) THEN M*=".LLEC NI DEWOL 
LA TON ERA SNOISSESSOP" : GOTO 1010 
2140 IF C2*="00B" AND R=6 AND I(18)=0 
THEN M*=".GNIBMILC ROF PLEH DEEN ELPOE 
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P":GOTO 1010 

2150 IF C2*="00B" AND R=6 THEN M*="'.N 

I NGIS TSUM STSEUG LLA':SYAS KOOB" : GOT 

O 1010 

2160 IF R=8 AND C2*="IRW" THEN C4*="" : 

C3*=NA*: GOSUB 30: NB*=C4*: M*=" . . . EHT NI 

OG T'NOD "+NB*:GOTO 1010 
2170 IF R=50 AND C2*="ARG" THEN M*=" ! ! 
DEID EW DNA DEIRT EW" : GOSUB 20:G0SUB 3 
490:M*="EVAD & KCAJ DENGIS":GOTO 1010 
2180 IF R=14 AND C2*="ARG" THEN M*=" .S 
PLEH EGDELWONK FO KOOB EHT":60T0 1010 
2190 IF C2*="CID" OR C2*="RCS" OR C2*= 
"OOB" THEN 2200 ELSE 2210 
2200 M*="'!TI EVAH T'NOD I " : GOTO 1010 
2210 M*="!!!TAHT DAER T'NAC I " : GOTO 10 
10 

Note: This reading routine can be condensed quite a bit if you 
wish by breaking down each thing that can be read and sending 
it to its own subroutine. (If you want to sneak a peek and see 
how I did it, look at the end of this listing.) 

Now to complete the DRINK routine from line 1320. Check to see 
what the player wants to drink and if he or she is in the room 
with it or has it in possession. 

2220 IF C2*="TAW" AND R=31 OR C2*="TAW 
" AND R=32 THEN M*=" . GNIHSERFER SAW TA 
HT ! HA": GOTO 1010 

2230 IF C2*= ,, TAW AND I* ( 10) ="RETAW OF 
SSALG" THEN I* ( 10) ="SSALG" : M*=" ! TOPS E 
HT TIH TAHT":GOTO 1010 

2240 IF C2*="TAW" THEN M*="!RETAW YNA 
EES T'NOD I":GOTO 1010 

2250 IF C2*="0IL" AND R=5 OR C2*="QIL" 
AND R=4 THEN M*=" ! EHTAERB T'NAC I - S 
NRUB TI": GOSUB 20: GOSUB 3510: GOTO 2910 
2260 IF C2*="T0P" AND I(18)=0 THEN M*= 
" .PU EM MRAW T'NOW ERIF A , DLOC OS M' I 
": I (18) =99: GOTO 1010 

2270 M*="'!TAHT KNIRD T'NAC I " : GOTO 10 
lO 
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Add to the WAVE routine from line 1330. First, the program checks 
to see if player wants to wave the wand; next, if he or she has 
the wand; and finally, it creates the change if the player is in 
the appropriate room. 

2280 IF C2*<>"NAW" THEN M*=" ! ! TAHT EVA 
W OT TNAW I DLUOW YHW":GOTO 1010 
2290 IF Ml 1)00 THEN M*="!!TAHT EVAH 
T'NOD I" :GOTO 1010 

2300 SOUND 2,20,4, 15: FOR T=l TO 300:NE 
XTrSOUND 2, 0, 0, O: M*=" ! ! TLOB YGRENE NA 
ST I ME DNAW EHT":GOSUB 20:GOSUB 3490 
2310 IF R=12 AND M(l)=l THEN M*=".HSIF 
A OTNI SNRUT NOGARD EHT" :M < 1 ) =0: I (22) 
=12:G0SUB 20:G0SUB 3510: GOTO 2880 
2320 M*=" ! IDEGNAHC SMEES GNIHTON , EGNA 
RTS" :GOTO 1010 

Next come the routines to KILL and FIGHT the monsters. Here, 
the program checks to see which monster the player wishes to 
fight and sends control to the proper routine if he or she has the 
correct weapon. 

2330 IF C2*= ,, AIG" AND M(2) = l AND R=8 T 
HEN 2400 

2340 IF C2*="AIG" AND M(2)=l AND R=21 
THEN 2400 

2350 IF C2*="ARD" AND M(l)=l AND R=12 
THEN 2420 

2360 IF C2*="ERC" AND M(3)=l AND R=31 
THEN M*=" ! RET AW EHT NI TON M' I " : GOTO 1 
010 

2370 IF C2*="ZIW" AND R=29 THEN 2430 
2380 IF C2*="" THEN M*='"?TAHW THGIF" :6 
OTO 1010 

2390 M*="! THGIF OT EREH GNIHTON S'EREH 
T":GOTO 1010 

2400 IF I<5)=0 THEN GOSUB 3520: M*=" ! DE 
HSIUQNAV NEEB SAH TNAIG EHT" : M (2) =0: GO 
SUB 20: GOSUB 3510: GOTO 2880 
2410 GOTO 2430 

2420 IF I(11)=0 THEN M*="??OD I DLUOHS 
TAHW":GOTO 1010 
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2430 M*=" ! INOPAEW TH6IR EHT EVAH T'NOD 

I" 
2440 IF RND<0)<0.5 THEN C4*=" ! ! DEKCATT 
A NEEB EV'I "+M*:M*=C4*: GOSUB 20 
:GOSUB 3520: GOTO 2910 
2450 GOTO 1010 

Now the subroutine for fight sound effects: 

3520 FOR L=l TO 20: SOUND O, 20, INT <8*RN 

D(0) >+l, 15: FOR T=l TO 8: NEXT T: SOUND O 

,0,0,0 

3530 FOR T=l TO INT <80*RND (0) ): NEXT Ti 

NEXT L: RETURN 

Continue with the routine to SPEAK or SAY something. First, the 
program learns what the player wants to say, then checks to see 
that what is said is something that the program understands. 

2460 IF C4*= H PLEH" THEN C1*="LEH" GOTO 

1300 
2470 IF RIGHT* <C4*, 1)= M H" AND R=29 AND 

I(ll)=99 THEN GOSUB 2530: M*="' 7DNAW A 

YUB OT TNAW : DRAZIW" : AN=1 : GOTO 1010 
2480 IF AN=1 AND C2*="SEY" AND R=29 TH 
EN GOSUB 2530:AN=2:M*="' . DLOG FO GAB A 

EM EVIG' :SYAS DRAZIW": GOTO 1010 
2490 IF RIGHT* <C4*,1)="H M AND R=8 OR R 
IGHT*(C4*, 1)= ,, H" AND R=21 THEN GOSUB 2 
530: GOTO 2520 

2500 IF C2*="" THEN M*="?YAS OT EM TNA 
W UOY OD TAHW" : GOTO 1010 

2510 GOSUB 2530:M*=" ! ! SNEPPAH GNIHTON" 
:GOTO 1010 

2520 M*=".REWSNA TON SEOD TNAIG EHT":G 
OTO 1010 

2530 M*=" !YAKO": GOSUB 20: GOSUB 3490: M* 
=C4*: GOSUB 20: GOSUB 3490: RETURN 

The routine to TOUCH and FEEL is continued from line 1360 by 
checking to see what player wants to touch and the consequences 
of touching the object. 
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2540 IF C2*="RRA" AND R=17 THEN KH=1:M 

*="!!SRAEPPA ELOHYEK SSARB A":GQSUB 20 

.-GOSUB 3490: GOTO 2880 

2550 IF (C2*="QIL" AND R=4) OR (C2*="Q 

IL" AND R=5) THEN I (6) =4: I (8) =5: GOTO 2 

570 

2560 M*=".EM OT "+C4*+" A EKIL SLEEF T 

I":GOTO 1010 

2570 M*=" ! !SNRUB REGNIF YM": GOSUB 20:G 

OSUB 3490: M*=" fGNISSIM EB OT SMEES REG 

NIF YM": GOSUB 20: GOSUB 3510: GOTO 2880 

The routine to POUR from line 1410 continues here to check to 
see what is in the glass; next, it checks to see if the player has 
the other necessary items to open the door. In either case, the 
player is told the results of his action. 

2680 IF CN=1 THEN M$=". ROOLF EHT OTNI 

SKAOS RET AW EHT": GOTO 1010 

2690 IF R<>3 THEN M*=" ! ! ROOLF EHT NI E 

LOH A ETA DICA EHT" : GOTO 1010 

2700 IF I(12)=0 THEN M*=" ! KCOL EHT NI 

ELOH A ETA DICA EHT" : Dl=l : GOSUB 20:GOS 

UB 3490: GOTO 2880 

2710 M*=".ROOD EHT NI SI ELOH A":PO=PO 

+1: GOSUB 20: GOSUB 3490 

2720 IF POX) THEN M*= M . PLEH DLUOW LENN 

UF EHT KNIHT I " : GOTO 1010 

2730 M$=" MPLEH T'NDID TAHT IEGNARTS": 

GOTO 1010 

Next is the routine to DIG from line 1420. The player is only 
allowed to dig in Room 7, so it first checks to see if the player is 
there, then checks to see if a hole has already been dug, and 
then digs the hole and places the item that was in the hole into 
Room 7. 

2740 IF R<>7 THEN M*="'!EREH ROOLF ENO 

TS A SI EREHT":GOTO 1010 

2750 IF D4>0 THEN M*="!!EREH GUD YDAER 

LA EV I":GOTO 1010 

2760 M*="M ROOLF EHT NI ELOH A SI EREH 

T":D4=1: I (16) =7: GOSUB 20: GOSUB 3510: GO 

TO 2880 
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The final words in the vocabulary are INSERT or USE from line 
1430. 

2770 IF C2*<>"ARB" AND C2*<>"YEK" THEN 

2780 
2775 IF R=17 AND I(20)=0 THEN KH=2:E=3 
4: I (20) =99: IN=IN-l:GOTO 2880 
2780 M*="!!KROW T'NSEOD TI":GOT0 1010 

The win routine is needed to complete the program. 

2860 IF I(18)=0 AND LEFT* ( I* ( 18) , 5) ="T 

SEHC" AND R=l THEN 3410 

3410 GRAPHICS 18:PRINT #6, AT (3, 4) ; " tin 

verse] CONGRATULATIONS" : PRINT #6, AT (6,5 

) ; "you won ! " 

3420 FOR L=l TO 3: FOR T=l TO 10: FOR S= 

60 TO 80: SOUND O, S, 10, 8: NEXT S:POKE 71 

2,T*10:NEXT T:SOUND 0,0,0,0 

3430 POKE 712,0: FOR T=l TO 500: NEXT T: 

NEXT L 

3440 GRAPHICS 18: PRINT #6, AT(0,5>i"TH 

ANKS FOR THE GAME !": FOR T=l TO 4000:NE 

XT: END 

This completes the program, which is capable of running as it 
is. Below are different ways these routines can be programmed. 

The coding on the animated eye routine can be reduced by chang- 
ing line 3150 to 

3150 FOR T=l TO 6.-READ DI* (T) : NEXT: EYE 
*=" [space/Ctrl T/3 spaces/ctrl T/space 
D" 

and lines 3240, 3250, and 3330 to 

3240 FOR EY=1 TO 2: FOR EYE=17 TO 15 ST 

EP-1: PRINT AT (EYE, 8); EYE*: FOR T=l TO 1 

00: NEXT T:NEXT EYE 

3250 FOR EYE=15 TO 17: PRINT AT (EYE, 8); 

EYE*: FOR T=l TO 100: NEXT T:NEXT EYE 

3330 NEXT EY: IF PEEK (764) <>255 THEN 33 

60 
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In direct mode, type DEL 3260-3320 and hit RETURN. Now you 
have a much more compact code that does the same animation 
routine. 

The coding in lines 1230 through 1440 can also be reduced. Below 
is the new vocabulary routine: 

First, in line 3120, change to 

3120 DIM I*(23) , I (23) ,DI*(6) ,M(3) , VOC* 
(31 ) : D1=0: D2=0: D3=0: D4=0: D5=0: D6=0: D7= 
: D8=0 : 6 1 =0 : KH=0 : LD=0 

Next, add the following lines: 

3155 FOR T=l TO 31: READ VOC*(T):NEXT 
3195 DATA OG, LNU, EPO, MUJ , ILC, VIG, ORD, R 
HT, TEG, KAT, OOL, AXE, LEH, AER, IRD, VAW, LIK 
,GIF,EPS,YAS,EEF,UOT,VNI,TXE,GIL 
3197 DATA IRW, GIS, UOP, GI D, SNI , ESU 

In direct mode, type DEL 1230-1430 and hit RETURN. Then add 
the following lines: 

1225 IF Cl*=" OG" THEN Cl*="OG" 

1230 Tl=0:FOR T=l TO 31: IF Cl*=VOC*(T) 

THEN T1=T:T=31 
1240 NEXT: IF T1=0 THEN 1440 
1250 IF TK17 THEN ON Tl GOTO 1450,155 
O, 1550, 1620, 1680, 1720, 1720, 1720, 1850, 1 
850, 1810, 1810, 1300, 1950,2220,2280 
1260 ON Tl-16 GOTO 2330,2330,2460,2460 
, 2540 , 2540 , 2580 ,1310,1 320 , 2630 , 2630 , 1 3 
30, 1340, 2770, 2770 

1300 M*=".GNIDAER YB TOL A NRAEL ELPOE 
P":GOTO 1010 

1310 IF I(14)=0 AND DK=1 THEN DK>0:GOT 
O 2840 

1315 GOTO 1440 

1320 IF I(1)=0 AND I(14)=0 AND DK=0 TH 
EN DK=1: I*(14)="HCR0T GNIBRUB" : GOTO 28 
40 
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1325 GOTO 1440 

1330 IF RIGHT* (I* (10) ,8)="F0 SSALG" TH 

EN I*<10)="SSALG":G0T0 2680 

This completes the two modifications to improve the program. 
The modification of the reading routine is still left to complete. 
In direct mode, type DEL 1950-2210, hit RETURN, then type in the 
following changes: 



1950 


IF C2*="RCS" THEN 1959 


1952 


IF C2*="CID" THEN 1970 


1954 


IF C2*="00B" THEN 1980 


1955 


IF C2$=" IRW" THEN 2160 


1956 


IF C2*="GIS" THEN 2155 


1957 


IF C2*="ARG" THEN 2170 


1958 


M$="!!!TAHT DAER T'NAC I " : GOTO 10 


10 




1959 


IF I(3)=0 AND I(17)=0 THEN M*="'W 


ORRA 


HCUOT' :SYAS LLORCS" : GOTO 1010 


1960 


IF I(3)=0 THEN M$=" .EM OT KEERG S 


'TI": 


GOTO 1010 


1965 


GOTO 2200 


1970 


IF I(17)=0 THEN M*="'YRANOITCID K 


EERG' 


:SYAS REVOC": I« ( 17) =1* ( 17) +" KEE 


RG":GOTO 1010 


1975 


GOTO 2200 


1980 


IF R=6 THEN 2140 


1990 


IF 1(9)00 THEN 2200 


2000 


IF I <13)=0 THEN 2100 


2010 


IF R=9 THEN M*=".TOH NEHW SPLEH D 


LOC GNIHTEMOS":GOTO 1010 


2020 


IF R=3 THEN M*= M . LATEM TAE SEVISO 



RROC":GOTO 1010 

203O IF R=4 THEN M*=".DOOW FO EDAM ERA 

SEGDIRB":GOTO 1010 
2040 IF R=12 THEN M*=" .CIGAM ERA SNOGA 
RD":GOTO 1010 

2050 IF R=29 THEN M*=" . TNATROPMI SI NO 
ITACINUMMOC":GOTO 1010 

2060 IF R=5 THEN M*=".LUOF LLEMS YLLAU 
SU SLACIMEHC": I (6) =4: I (8>=5:G0SUB 20: G 
OSUB 3510: GOTO 2880 
2070 IF R=30 THEN M*=" ' EGDELWONK FO KO 



74 INTERACTIVE ADVENTURES 

OB' :SYAS REVOC " : GOTO 1010 

2080 IF R=25 AND I(18)=0 THEN M*=".KNI 

RD BNILOOC A": GOTO 1010 

2090 M*=".TI NI NOITAMROFNI YNA DNIF T 

'NAC I":GOTO 1010 

2100 IF Q=0 THEN M*="!YTPME SAW MOOR E 

HT":Q=1:G0T0 1010 

2110 IF Q=l THEN M*=" !OG UOY DNUOR DNA 

DNU0R":Q=2:G0T0 1010 
2120 M*="!!WOL DNA HGIH K00L M :G0T0 101 

2140 IF I(18)=0 THEN M*=" . GNIBMILC ROF 

PLEH DEEN ELPOEP" : GOTO 1010 
2150 M*="'.NI NGIS TSUM STSEUG LLA':SY 
AS KOOB":GOTO 1010 

2155 IF R=45 OR R=19 THEN M*= " . LLEC NI 
DEWOLLA TON ERA SNOISSESSOP" : GOTO 101 



2156 GOTO 2210 

2160 IF R=8 THEN C4*=" " : C3*=NA*:G0SUB 

30:NB*=C4*:M*=".. . EHT NI OG T'NOD "+NB 

*:GOTO 1010 

2165 GOTO 2210 

2170 IF R=50 THEN M*=" l.'DEID EW DNA DE 

IRT EW":GOSUB 20:G0SUB 3490: M*="EVAD 8c 

KCAJ DENGIS":GOTO 1010 
2180 IF R=14 THEN M*=".SPLEH EGDELWONK 

FO KOOB EHT": GOTO 1010 
2190 GOTO 2210 

2200 M*="!!TI EVAH T'NOD I " : GOTO 1010 
2210 M*="!EREH TON S'TI":GOTO 1010 

You now have a complete modified version of the program. Be 
sure to save your new version onto tape with a CSAVE command 
or onto disk with SAVE "D:filename." 
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Mad Bomber is written in Atari BASIC, the language cartridge 
which is sold separately as part number CXL4002. 

I recommend the following sources of information on the 
Atari BASIC language provided with the computer: Atari BASIC 
by Bob Albrecht, LeRoy Finkel, and Jerald R. Brown (Wiley and 
Sons, 1979); and BASIC Reference Manual by Shaw and Brewster 
(Atari, 1980). There are also many other fine books to help you 
understand the commands and statements of Atari BASIC, such 
as Your Atari Computer by Lon Poole, Martin McNiff, and Steven 
Cook (OSBORNE/McGraw-Hill, 1982); and Afari Games and Rec- 
reations by Herb Kohl, Ted Kahn, Len Lindsay, and Pat Cleland 
(Reston Publishing, 1982). 

One advantage of Atari BASIC over Microsoft BASIC be- 
comes immediately apparent: there is no arbitrary limit to the 
size (length) of a string. Also, Atari BASIC does not move strings 
around in memory when the program is running. Both give more 
flexibility in the use of strings. 

Mad Bomber requires 8K from cassette, or 16K from disk. It 
is a unique game, since each time it is played the objects must 
be used in a certain order, and they are located in different rooms 
each time. 

THE OBJECTIVE 

To find the bomb container, get it open, and dismantle the bomb 
before it explodes. The various objects necessary to dismantle 
the bomb are randomly placed in the six main rooms of the house. 
There is a different time limit for each level of play. 

THE OBJECTS 

Note: The program is designed to place a necessary object in 
each of the 6 main rooms. 



OBJECT PURPOSE 

Chair to reach key 

Key to open chest 

Chest to get crowbar 

Crowbar to open cabinet 
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Cabinet 

Screwdriver 

Box 

Basket 

Scissors 



to get screwdriver 
to open box 
contains bomb 
contains scissors 
to cut wires on bomb. 



THE MAP 



Oaster bedroom 



Dining room 




Bedroom 



Den 



Hall 



JL 



Hall 



Kitchen 



Living room 
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THE FLOWCHART 








<D 



•Yes- 



( Begin J 



Title 



Initialize 



Set variables 



Print 
information 
to the screen 



O 
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o 



■« Yes 




Set 

conditionals 
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THE PROGRAM 

In this program, as in previous ones, the seldom-used routines 
are placed at the end of the program to increase speed of exe- 
cution. First, display the title with fanfare, starting from the up- 
per left corner and coming to rest in the middle of the screen. 

5 GOSUB 1000 

1000 FOR G=8 TO 2 STEP -1 

1010 GRAPHICS G+16:REM GRAPHICS WITH N 

O WINDOW 

1020 POSITION G+3,4:? #6; "mad bomber" 

1030 SOUND 0,RND<0) *255, 10, 10 

1035 FOR DELAY=1 TO 10: NEXT DELAY 

1040 NEXT G 

1050 GOTO 1050 

(*)RUN 

Now display author's name (again with fanfare), printed one 
letter at a time, each with sound. 

1050 DIM MESSAGE* ( 30) : MESS AGE* (1, 13)=" 

[inverse]BY JACK HARDY" 

1070 FOR G=l TO 13 

1O80 POKE 709, INT (16*RND(0) )* 16+8: POSI 

TION G+3,10:? #6; MESSAGE* <G, G) 

1090 SOUND 0,80,10,4 

1095 FOR DELAY=1 TO 5: NEXT DELAY: SOUND 

0,0, 0,0: FOR DELAY=1 TO 5: NEXT DELAY 
1100 NEXT G 
1110 GOTO 1110 

( * ) RUN 

Now for a surprise: blow up the screen! For this, create a sub- 
routine so it can be used again later in a different part of the 
program. 

1110 FOR DELAY=1 TO 100:NEXT DELAY: GOS 
UB 2000:LEVEL=1 
1120 GOTO 1120 
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2000 DLIST=PEEK (560) +256*PEEK (561 ) : G=P 

EEK(712) 

2010 FOR W=15 TO STEP -0.25: SOUND O, 

50,0,W:C0=1-C0:P0KE 712, CO* (4* 16+6) : PO 

KE 710,PEEK(712) : POKE DLIST, 112*C0 

2020 FOR DELAY=1 TO 5: NEXT DELAY: NEXT 

W 

2030 POKE DLIST, 112: POKE 712, G: POKE 71 

0,G: RETURN 

( * ) RUN 

Begin the main program by dimensioning variables. ITEM(n) holds 
room number. The variable 1$ is used to read objects from data 
tables and place them in the longer ITEM$, which will contain 
the name of all objects. DIR$ holds one-letter commands for di- 
rections. VOCABULARY$ holds all the words the program rec- 
ognizes. LOCATIONS is used for printing location description. 
SUBMESSAGE$ is used to display facts about location. 

Note: String arrays can be simulated in Atari BASIC by dimen- 
sioning larger strings to store all string data as substrings. Each 
substring, however, must be the same length. The program then 
must be designed to allow it to read small portions of the larger 
string as needed. 

1120 DIM ITEM(IO) , I*(14) , ITEM* ( 1 10) , DI 
R* ( 4 ) , VOCABULARY* ( 54 ) , LOCAT I ON* ( 1 4 ) , SU 
BMESSAGE*(30) 

Clear strings: 

1130 ITEM*(1)=" ": ITEM* (110)=," " : ITEM* 
(2)=ITEM*: I*=ITEM*(1, 11) : MESSAGE*=ITEM 
*(1,30) 

Read items, directions, and game commands into their desig- 
nated strings. (Note: Only the first three letters of each command 
are stored in the vocabulary string.) 

1160 RESTORE : FOR G=l TO 10: READ I*: IT 
EM*(G*11-10,G*11)=I*:NEXT G 
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at, hi idnrti^uvE, rti^vtivi unto 

1170 DIR*="NSEW" 

1180 FOR G=l TO 18: READ I*: VOCABULARY* 

(G*3-2,G*3)=I*(1,3):NEXT G 

4000 DATA CHAIR, KEY, CHEST, CABINET, BOX, 

BASKET , CROWBAR , SCREWDR I VER , BOMB , SC I SSO 

RS 

4010 DATA WALK, RUN, GO , GET, TAKE, LOOK, E 

X AM I NE , OPEN , UNSCREW , UNLOCK , DROP , PUT , ST 

AND ON , CL I MB , TOUCH , FEEL , I NVENTOR Y , CUT 

Assign each item a room number, then shuffle them so they do 
not appear in the same room in successive games. 

1190 FOR G=l TO 6: ITEM (G) =G: NEXT G:FOR 

G=7 TO 10: ITEM(G)=0:NEXT G 
1200 FOR G=6 TO 2 STEP -1 : J=INT (G*RND < 
O) )+l: I=ITEM(J) : ITEM < J) =ITEM (G) : ITEM(G 
>=I:NEXT G 

Set variables. Delete characters from 1$, set Variable CHAIR to 
0, and establish the number of the beginning room. 

1210 I*="":CHAIR=0:R00M=8 

This part of the program allows the player to choose the level of 
play and to begin when he or she wishes. 

1220 POSITION 2, 8: PRINT #6; " CinverseDp 

ress" 

1230 POSITION 2, 9: PRINT #6; "START TO B 

EGIN" 

1235 POSITION 2, 10: PRINT #6; "SELECT / 

LEVEL "; LEVEL 

1240 IF PEEK (53279) =6 THEN 1270 

1250 IF PEEK (53279) =5 THEN LEVEL=LEVEL 

+1:IF LEVEL >3 THEN LEVEL=1 

1260 FOR DELAY=1 TO 10: NEXT DELAY: GOTO 

1235 
1270 IF LEVEL=1 THEN MAXTIME=15 
1280 IF LEVEL=2 THEN MAXTIME=5 
1290 IF LEVEL=3 THEN MAXTIME=2 

<*)RUN 
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Note: You may run the program and watch how the SELECT key 
functions, but if you push START, the program will error. 

Now add the routine to start the program. Change to a graphics 
mode, change the screen color to black, make the cursor in- 
visible, position and print the message, set the internal clocks 
to 0, and return to the beginning of the program. 

1300 GRAPHICS 0:PDKE 710,0:POKE 752,1 
1310 POSITION 11,11:PRINT "THE GAME IS 
AFOOT !": POKE 18,0: POKE 19,0: POKE 20, O 
: RETURN 

Create the sound of the pitter-patter of little feet, change screen 
color, and set direction variables to zero. [Note: The colors for 
each room will remain the same since they are set by the room 
number.) 

7 FOR G=l TO 10: SOUND 0,80, 2, 4: FOR D=l 
TO 2: NEXT D: SOUND 0,0, 0,0: FOR D=l TO 

55: NEXT D:NEXT G 

8 POKE 710, ROOM* 16+2: POKE 712,PEEK(710 
) :N=0:S=0:E=0:W=0 

The program checks the value of the variable ROOM and goes 
to the corresponding line number (e.g., Room l = line 10, Room 
2 = line 20, etc.). Each room sets its direction variables to the 
room number located in every direction. 

9 ON ROOM GOTO 10,20,30,40,50,60,70,80 

10 LOCAT ION*= "KITCHEN" : N=3: E=8: GOTO 10 


20 LOCATIONS "LIVING ROOM" : N=4:W=8: GOT 
O 100 

30 LOCATION*="DINING ROOM" : S=l :N=5: 
E=7:G0T0 100 

40 LOCATION*="DEN":S=2:N=6:W=7:GOTO 10 

O 

50 LOCAT I 0N*=" MASTER BEDROOM" : S=3: E=6: 

GOTO 100 

60 LOC AT I 0N*=" BEDROOM ":S=4:W=5: GOTO 10 

O 

70 LOCAT I 0N*=" HALL WAY" : S=8: W=3: E=4: GO 

TO 100 
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80 LOCATIONS "HALL WAY" : N=7: W=l : E=2: GO 
TO 100 

To begin the PRINT routine, format screen, print description of 
location, give directions, and print items in the room. Nofe: All 
items are not the same in length, so any trailing spaces are 
deleted by the subroutine in lines 270 and 272. To see this, run 
the program, hit BREAK then, in direct mode, type PRINT ITEMS 
and hit RETURN. This can also be used to "debug" your program. 
By using this simple command to PRINT variable, you can im- 
mediately find the value of any variable in the program. 

100 PRINT "[esc ctrl clear]" 

110 PRINT "Cinverse / 37 ctrl R'sD" 

120 PRINT : PRINT "YOU'RE IN THE " ; LOCA 

TION* 

130 PRINT :PRINT "[inverse / 18 ctrl 6 

's / 19 ctrl F's3" 

Print exits: 

140 PRINT "[inverse / 5 ctrl F's /spac 
eUTHERE ARE DOORWAYS GOING: [space/5 ctrl 

G's]" 
150 PRINT : IF N>0 THEN PRINT "NORTH, " 

160 IF S>0 THEN PRINT "SOUTH, "; 
170 IF E>0 THEN PRINT "EAST, "; 
180 IF W>0 THEN PRINT "WEST, " ; 
190 PRINT "[2 esc ctrl + 's3" 

Print items the player can see: 

230 PRINT : PRINT "[inverse / 11 ctrl W 

's / 15 ctrl R's / 11 Ctrl W'sD" 

240 PRINT "[inverse / 11 ctrl X's / sp 

ace ] ITEMS YOU SEE[space / 11 ctrl X's 

]" 

250 PRINT :FOR G=l TO 10 

260 IF ITEM(G)=ROOM THEN I*=ITEM* (G*l 1 

-10,G*11):G0SUB 270:PRINT I*;", ";:!♦= 
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265 NEXT G:GOTO 275 

270 IF I*<LEN(I*) ,LEN(I*) )=" " THEN I* 

=I*(1,LEN(I*)-1> :G0T0 270 

272 RETURN 

This is the area prepared for user input: 

275 PRINT "C2 esc ctrl + 's]" 

280 PRINT : PRINT "[inverse / 36 ctrl L 

's / ctrl UiJ" 

290 PRINT "Cinverse / 12 spaces 3 INSTRU 

CTI0NS7C12 spaces]": PRINT 

Before player can input a message, the program checks the time 
to see how much is used and if bomb should explode. If time is 
up, control of program is sent to line 950 for explosion routine. 
(This line will be added later.) 

294 TIME=PEEK(19)/14: IF TIME>=MAXTIME 

THEN 950 

296 IF TIME>=MAXTIME-1 THEN SOUND 1,9, 

2,1 

Set TRAP and clear old strings: 

300 TRAP 3000:MESSAGE*="" : SUBMESSAGE*= 
•i ii 

Now let player input a message, then check to see if it is only 
one letter; if so, check for valid Directional command in DI$. Upon 
finding a direction, the program will go to line 340 and check to 
see if player can indeed go in that direction. 

310 INPUT MESSAGE*: IF LEN (MESSAGE*) >1 

THEN 400 

320 FOR G=l TO 4: IF DIR* (G, G) =MESSAGE* 

THEN DIR=G:P0P : GOTO 340 
330 NEXT G: PRINT "I DIDN'T UNDERSTAND 
THAT ! " : GOTO 3050 

340 ON DIR GOTO 350,360,370,380 
350 IF N>0 THEN R00M=N:G0T0 7 
355 GOTO 390 
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360 IF S>0 THEN R00M=S:G0T0 7 

365 GOTO 390 

370 IF E>0 THEN ROOM=E:GOTO 7 

375 GOTO 390 

380 IF W>0 THEN ROOM=W:GOTO 7 

390 PRINT "YOU CAN'T GO IN THAT DIRECT 

ION! " :GOTO 3050 

If player inputs wrong length message or no message at all, the 
program will error, sending control to the routine below (TRAP 
3000). The program pauses for appropriate message to be read 
and then jumps back for more input. 

3000 PRINT "PLEASE SAY THAT AGAIN! " : TR 
AP 40000 

3050 FOR G=l TO 200: NEXT G: PRINT "[3 e 
5C Ctrl -'s / 6 esc shift insert} ": GOT 
300 

This routine separates the player's input into two strings (MES- 
SAGES and SUBMESSAGES). Check the time again after player's 
input, check the first three letters of the player's input, and, upon 
finding a match, set the variable VOC and jump to 440 to send 
the program to the proper routine for that word. 

400 FOR G=l TO LEN (MESSAGE*) : IF MESSAG 

E*(G,G)=" " THEN SUBMESSAGE*=MESSAGE* ( 

G+ 1 , LEN ( MESSAGE* ) > : POP : GOTO 415 

410 NEXT G 

415 IF TIME>=MAXTIME THEN 950 

420 FOR G=l TO 18: IF MESSAGE* ( 1 , 3) =V0C 

ABULARY*<G*3-2,G*3) THEN V0C=G:P0P : GO 

TO 440 

430 NEXT G: PRINT "THAT IS NOT PART OF 

MY VOCABULARY ! " : GOTO 3050 

440 ON VOC GOTO 450,450,450,470,470,52 

O, 520, 600, 600, 600, 670, 670, 710, 710, 730, 

730,770,830 

The routine for the words WALK, RUN, and GO are checked in 
the vocabulary routine by seeing first if the player wants to go 
in a direction, and if not, whether he or she is permitted to go 
elsewhere (i.e., onto Chair). 
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450 FOR G=l TO 4: IF SUBMESSAGE* ( 1 , 1 ) =D 
IR*(G,G) THEN DIR=G:POP -.GOTO 340 
455 IF SUBMESSAGE*(1,3)="CHA" THEN 710 
460 NEXT G-.PRINT "YOU CAN'T GO THERE!" 
:GOTO 3050 

Following is the routine for the words GET and TAKE. First, the 
program checks for a valid object which can be taken. Second, 
it checks to see if player already has the object. Third, it checks 
to see if it is indeed in the room with the player. Fourth, it checks 
to see if the player wants the KEY, since the chair is needed in 
order to reach it. Finally, it gives the player the object requested. 

470 FOR G=l TO 10: IF SUBMESSAGE* < 1 , 3) = 

ITEM*<G*ll-10,G*ll-8) THEN POP : GOTO 4 

90 

480 NEXT G: PRINT "YOU CAN'T TAKE A " ; S 

UBMESSAGE*:GOTO 3050 

490 IF ITEM (G) =10 THEN PRINT "YOU ALRE 

ADY HAVE IT!" : GOTO 3050 

500 IF ITEM(G)OR00M THEN PRINT "THAT 

ITEM IS NOT HERE!":G0T0 3050 

510 IF SUBMESSAGE*="KEY" AND (CHAIROl 

OR ITEM(l)OROOM) THEN 518 
515 ITEM (G) =10: GOTO 9 

518 PRINT "IT'S TOO HIGH. YOU NEED TO 
STAND ON SOMETHING! C esc ctrl -D":GOT 
O 3050 

Create the routines for the words LOOK and EXAMINE. Check 
each item to see if it is a valid object to be looked at and then 
jump to the proper response. 

520 FOR G=l TO 10: IF SUBMESSAGE* < 1 , 3) = 

ITEM* (G*l 1-10, G*l 1-8) THEN POP : GOTO 5 

40 

530 NEXT G: PRINT "IT LOOKS LIKE A " ; SU 

BMESSAGE*;" TO ME ! " : GOTO 3050 

540 IF ITEM(G)OROOM AND ITEM(G)<>10 T 

HEN PRINT "IT'S NOT HERE TO LOOK AT!": 

GOTO 3050 

550 IF SUBMESSAGE* (1,3)=" CHE" THEN PR I 

NT "THERE IS A KEYHOLE !": GOTO 3050 
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560 IF SUBMESSAGE*<1,3)="CAB" THEN PR I 

NT "IT WILL HAVE TO BE FORCED OPEN ! " : 6 

OTO 3050 

570 IF SUBMESSA6E*<1,3)="B0X" THEN PR I 

NT "SCREWS HOLD THE LID CLOSED !": GOTO 

3050 

580 IF SUBMESSAGE*(1,3)="BAS" THEN PR I 

NT "YOU FIND A PAIR OF SCISSORS !": ITEM 

(10)=R00M:F0R D=l TO 200: NEXT D:GOTO 9 

585 IF SUBMESSAGE*(1,3)="B0M" THEN PR I 

NT "THE WIRES NEED TO BE CUT !": GOTO 30 

50 

590 PRINT "I SEE NOTHING SPECIAL !": GOT 

O 3050 

Below are the routines for the words OPEN, UNSCREW, and UN- 
LOCK. Only the items which can be opened are checked — Items 
3 through 6 (Chest, Cabinet, Box and Basket). Note that they 
follow each other in the DATA statements. If the item can be 
opened, jump to the proper routine for that word and, if the proper 
tool is in the possession of the player, allow the object to be 
opened. 

600 FOR G=3 TO 6: IF SUBMESSAGE* ( 1 , 3) =1 

TEM*(G»ll-10,G*ll-8) THEN POP : GOTO 61 

O 

605 NEXT G: PRINT "YOU CAN'T OPEN THAT! 

":GOTO 3050 

610 IF ITEM(G)OR00M THEN PRINT "IT'S 

NOT IN THIS ROOM!": GOTO 3050 

612 IF ITEM(G+4X>0 THEN PRINT "IT'S A 

LREADY OPEN ! " : GOTO 3050 

620 IF SUBMESSAGE*(1,3)="CHE" AND ITEM 

(2)=10 THEN ITEM(7)=R00M:G0T0 9 

630 IF SUBMESSAGE*(1,3)="CAB" AND ITEM 

(7)=10 THEN ITEM <8)=R00M: GOTO 9 
640 IF SUBMESSAGE*(1,3)="B0X" AND ITEM 

(8) =10 THEN ITEM <9)=R00M: GOTO 9 

650 IF SUBMESSAGE*(1,3)="BAS" THEN PR I 

NT "OKAY!":GOTO 3050 

660 PRINT "YOU NEED HELP TO OPEN THAT! 

" : GOTO 3050 
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Note: In line 612, the object is checked to see if it is already open 
by checking ITEM(G + 4) to see if it has been assigned a number. 
This is the way it works: If you look at the data statement in line 
4000 you will note that the CHEST contains the CROWBAR, the 
CABINET contains the SCREWDRIVER, etc., and that each of 
them is 4 items away from its container. At the beginning of the 
program, the status number of each was set to zero, so that none 
would appear until its container was opened. 

Further routines for words DROP and PUT check to see what item 
the player wants to drop and, if he or she has it, places it in the 
room. 

670 FOR G=l TO 10: IF SUBMESSAGE* ( 1 , 3) = 

ITEM* (G*l 1-10, G*l 1-8) THEN POP : GOTO 6 

90 

680 NEXT G:PRINT "DROP WHAT M !!": GOTO 

3050 

690 IF ITEM (G) =10 THEN ITEM (G) =ROOM: GO 

TO 9 

700 PRINT "YOU'RE NOT CARRYING IT!!":G 

OTO 3050 

The words STAND ON and CLIMB are checked to see if player 
wants to stand on the chair and, if so, it goes there. 

710 IF SUBMESSAGE* (1, 3 )="CHA" THEN 722 

715 IF MESSAGE*<1,3)="STA" AND SUBMESS 
AGE*(4,6)="CHA" THEN 722 

720 PR I NT " YOU CAN ' T " ; MESSAGE* (1,5);" 

ON THAT ! ! " : GOTO 3050 

722 IF ITEM(1)OROOM THEN PRINT "IT'S 

NOT THERE ! " : GOTO 3050 

725 CHAIR=1:G0SUB 3060: GOTO 3050 

The necessity of a new subroutine was created above: 

3060 PRINT "OKAY! ": RETURN 

Now enter the routine for the words TOUCH and FEEL: 



90 INTERACTIVE ADVENTURES 

730 FOR G=l TO 10: IF SUBMESSAGE* ( 1 , 3) = 

ITEM* (G*l 1-10, G* 11-8) THEN POP : GOTO 7 

50 

740 NEXT G: PRINT "IT FEELS LIKE A " ; SU 

BMESSAGE*;" TO ME ! " : GOTO 3050 

750 IF ITEM(G)OR00M THEN PRINT "IT'S 

NOT HERE TO TOUCH ! " : GOTO 3050 

755 IF SUBMESSAGE* (1,3)=" BOM" THEN PR I 

NT "I FEEL SOME WIRES !": GOTO 3050 

760 GOSUB 3060: GOTO 3050 

When the player asks for INVENTORY, the program comes here 
and checks to see what items are in the player's possession. 
(Note: When ITEM(n) = 10 the player has the item in possession.) 

770 PRINT "[esc shift clear 3 ": PRINT "C 

inverse / 12 ctrl 0's3 ITEMS YOU HAVEC1 

2 ctrl I 'si" : PRINT : FOR G=l TO 10 

780 IF ITEM<G)=10 THEN PRINT ITEM*(G*1 

1-10,G*11> 

790 NEXT G 

The way to get back to the main program is shown below: 

800 POSITION 5, 22: PRINT "TOUCH C in vers 
e / spaceUSPACE BARCspace / inverse o-f 
•fD TO CONTINUE" 
BIO OPEN #1,4,0,"K: " : GET #1,K:IF K<>32 

THEN CLOSE #1:G0T0 800 
820 CLOSE #1:G0T0 9 

The last word in the program's vocabulary is CUT: 

830 IF SUBMESSAGE*(1,3X>"WIR" THEN PR 

INT "I CAN'T CUT THAT !": GOTO 3050 

840 IF ITEM(9)OROOM THEN PRINT "THE B 

OMB IS NOT HERE!": GOTO 3050 

845 IF ITEM < 10)010 THEN PRINT "YOU DO 

N 7 T HAVE ANY SCISSORS !": GOTO 3050 

If player has the scissors, he or she can cut the wire on the bomb 
and the program continues on to the win routine. 
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850 GRAPHICS 18: POSITION 4,1: PRINT #6; 

" [inverse 3Y0U DID IT!" 

860 RESTORE 4050: FOR D=l TO 7: READ SO, 

DELAY 

870 SOUND 1, SO, 10, 10: POKE 712,S0:F0 

R D2=l TO DELAY: NEXT D2:NEXT D: SOUND 1 

,0,0,0 

880 IF LEVEL=3 THEN POSITION 2, 2: PRINT 

#6;" YOU SURVIVED THE" : POSITION 3, 3: PR 
INT #6; "HIGHEST LEVEL": GOTO 965 
890 LEVEL=LEVEL+1 

900 POSITION 2, 3: PRINT #6; "YOU HAVE BE 
EN": POSITION 1,4: PRINT #6; "PROMOTED TO 

LEVEL "; LEVEL 
910 FOR DELAY=1 TO 100: NEXT DELAY 
920 GOSUB 1130: GOTO 7 

To have music to accompany the above routine, add the following 
data: 

4050 DATA 96,15,72,15,57,15,48,30,57,1 
5,48,60,0,0 

Create the routine to be used when the time limit is reached: 

950 SOUND 1,0, 0,0: GOSUB 2000: FOR DELAY 
=1 TO 20: NEXT DELAY 

960 GRAPHICS 18: POSITION 1,3: PRINT #6; 
" [inverse]you were too late!" 

Both win and lose routines come here to see if player wants 
another chance to dismantle the bomb. 

965 POSITION 1,5: PRINT #6; "would you 1 
ike to": POSITION 2, 6: PRINT #6; "try aga 
in? (y/n)" 
970 OPEN #1,4,0, "K: " : GET #1,K:IF K<>78 

AND K<>89 THEN CLOSE #l:GOTO 970 
980 CLOSE #1:IF K=89 THEN GOSUB 1130:G 
OTO 7 

990 POSITION 1,8: PRINT #6; " CinverseDTH 
ANKS FOR PLAYING" : FOR DELAY=1 TO 250 :N 
EXT DELAY: END 

(*)RUN 
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You now have a completed working program. Examine the cod- 
ing to see what can be done to improve the techniques. 

Begin with the rooms. A much more efficient way to handle these 
routines would be to enter them into a string entitled LOCA- 
TIONS. Since there is already a string by that name, it can be 
used if it is enlarged (re-dimensioned). To enlarge LOCATIONS 
change the following: 

1120 DIM ITEM<10),I*<14), ITEM*(110) ,DI 
R*<4) , VOCABULARY* (54) , LOCATION* ( 1 12) ,S 
UBMESSAGE*(30) 

LOCATIONS is now dimensioned to 112 instead of to 14, as it was 
in the first program. It can now hold all of the room descriptions 
at once. 

Since a line for each location will no longer be used, another 
way must be created to hold the values of all connecting loca- 
tions. Add the following lines: 

1125 DIM N(8) ,S(8) ,E(8) ,W(8) 

Create a more efficient way to get the information into the LO- 
CATIONS and direction variables N,E,S,W. First, clear the string: 

1140 L0CATI0N*<1)=" ": LOCATION* ( 1 12) =" 
" : LOCAT I ON* ( 2 ) =LOCAT I ON* 

Then add the data statements and a line to read them: 

1185 FOR G=l TO 8: READ I*, Dl , D2, D3, D4: 
LOCAT ION* (G* 14-13, G* 14 )=I*:N(G)=D1:S(G 
)=D2:E(G)=D3:W(G)=D4:NEXT G 

4020 DATA KITCHEN, 3, 0, 8, O, LIVING ROOM, 

4, 0,0, 8, DINING ROOM, 5, 1 , 7, O, DEN, 6, 2, O, 

7 

4030 DATA MASTER BEDROOM, O, 3, 6, O, BEDRO 

OM, 0,4, 0,5, HALL WAY, 0, 8, 4, 3, HALL WAY, 7 

0,2,1 
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Now, delete lines 10 through 80. This can easily be done by typing 
only the line number and hitting RETURN. 

Change the following: 

9 N=N ( ROOM ) : S=S ( ROOM ) : E=E ( ROOM ) : W=W ( RO 

DM) 

120 PRINT : PRINT "YOU'RE IN THE ";LOCA 

TI0N*(R00M*14-13,R00M*14) 

Compare the above routine with the old routine for finding and 
printing the room information. 

A few other things can be done to make the coding more efficient: 
In lines 150 through 180, delete the >0 from those routines. Now 
do the same thing to lines 350, 360, 370, 380. If you would like to 
know exactly how those lines look after the change, see the 
complete listing in Appendix A. If you're also wondering how 
this can work, just remember that the IF/THEN statement checks 
for either true or false by comparing numbers within variables. 
Anything other than zero in Atari BASIC is considered by the 
program to be true. If the variable is zero, it is false, and the 
remainder of the program line will not be executed. 

Now, look at lines 520 through 590. One way to improve this 
routine is to add following line: 

545 ON G GOTO 590,590,550,560,570,580, 
590,590,585,590 

Then change these lines: 

550 PRINT "THERE IB A KEYHOLE !": GOTO 3 
050 

560 PRINT "IT WILL HAVE TO BE FORCED O 
PEN ! " : GOTO 3050 

570 PRINT "SCREWS HOLD THE LID CLOSED! 
" :GOTO 3050 

580 PRINT "YOU FIND A PAIR OF SCISSORS 
! " : ITEM(10)=ROOM:FOR D=l TO 200: NEXT D 
:GOTO 9 
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585 PRINT "THE WIRES NEED TO BE CUT!": 
GOTO 3050 

Comparing the old and the new routines makes it obvious that 
the new is a much more efficient method of accomplishing the 
same task. 

Add these lines to make the same conversions to lines 600 through 
660: 

615 ON G-2 GOTO 620,630,640,650 

625 GOTO 660 

635 GOTO 660 

645 GOTO 660 

And change these lines: 

620 IF ITEM (2) =10 THEN ITEM (7) =ROOM: GO 

TO 9 

630 IF ITEM (7) =10 THEN ITEM (8) =ROOM: GO 

TO 9 

640 IF ITEM (8) =10 THEN ITEM (9) =ROOM: GO 

TO 9 

650 PRINT "OKAY! " : GOTO 3050 

Again, this is a much more efficient way to handle the routine. 

The program is again complete, and a faster response to most 
of the input should be noticed. Be sure to save a copy of the new 
program onto cassette with a CSAVE command, or onto disk with 
a SAVE "D:filename." 



PART 3 



Graphic Adventures 



Microcomputers, such as the Atari, are becoming increasingly 
more graphics-oriented. With these capabilities, many programs 
can be enhanced. Adventure games in particular are improved, 
because now you can see the room and its contents. The thrill 
of exploration and discovery can now become visual as well as 
imaginary. Along with these enhancements comes the challenge 
for the programmer to use and manipulate these graphic capa- 
bilities within his program. 

The Atari has allowed easy access to most of its capabilities 
through either BASIC or PILOT. Access to many screen resolu- 
tions can be achieved with the use of its 12 graphics modes (0-11) 
and in many there is a palette of 128 colors from which to choose. 
Through mixing shades and luminance, some truly beautiful pic- 
tures can be created. 

The next three programs will present some of the ways in 
which to utilize the graphic capabilities of your Atari through 
PILOT, Microsoft BASIC, and Atari BASIC. 
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A GRAPHIC ADVENTURE 
IN ATARI PILOT: 
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Escape is a graphics adventure written in Atari PILOT. Although 
PILOT was originally designed for text output only, it has been 
enhanced with Turtle Graphics, developed by Dr. Seymour Pap- 
ert and the LOGO group at the Massachusetts Institute of Tech- 
nology, which enables the program to draw pictures during its 
execution. 

Escape is the result of a combined effort of all the members 
of my family. My six-year-old son, Jason, created routines for the 
dog and the gorilla, and the rest of us devised the other obstacles. 
The program requires 32K from cassette and 48K from disk. 

THE OBJECTIVE 

To escape from the top floor of a building. You awaken in a dark 
room. The last thing you remember is being hit on the head and 
thrown into a car. The only thing on your mind now is escape. 

THE OBJECTS 

Atari PILOT does not support arrays, so it is necessary to devise 
a way to store and check the status of objects in the adventure. 
For this, the program uses page 6, a favorite, usually untouched, 
area in memory. This area lies between 600 Hex (1536 decimal) 
and 700 Hex (1792 decimal) and is the place in which will be 
stored room numbers for some objects and status of others (door 
locked/unlocked, etc.). 

Below is a listing of the objects in this adventure and the 
memory locations which hold their room numbers. Note that when 
a zero is stored in a memory location, the object is in the player's 
possession; when a number other than zero is stored there, the 
object is in the room of that number. 



OBJECT 


LOCATION 


Flashlight 


1541 


Fuses 


1542 


Painting 


1543 


Dog Biscuit 


1544 


Bone 


1545 


Brown Key 


1546 


Crowbar 


1547 
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Blue Key 


1548 


Gloves 


1549 


Water 


1550 


Bucket 


1551 


Banana 


1552 


Drugs 


1553 


Red Key 


1554 


Fusebox 


1555 



The following memory locations contain the status of the objects 
listed: 



OBJECT 



MEMORY LOCATION 





CONTAINS 1 


CONTAINS 


Passageway 


1556 — open 


closed 


Dog 


1557 — present 


gone 


Flashlight 


1558— on 


off 


Fusebox 


1559 — working 


not working 


4th Floor Elevator door 


1560 — open 


closed 


Cabinet 


1561 — open 


closed 


Bookcase 


1562 — open 


closed 


3rd Floor Cabinet 


1563 — open 


closed 


2nd Floor Elevator door 


1564 — open 


closed 


Laundry room door 


1565 — unlocked 


locked 


Door 


1 566 — unlocked 


locked 


Fireplace 


1567— fire 


fire out 


Gorilla 


1568 — sleeping 


awake 


Door to lobby 


1569 — unlocked 


locked 


Medicine Cabinet 


1570 — open 


closed 


Drugs 


1571 — used 


not used 
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THE MAP 



Needed until 
fusebox repaired 



Bedroom 
Flashlight 



\=\ 



Office 
Painting 
Fusebox 







Hallway 



4th floor 



Workshop 
Cabinet 



J L 



'Holds fuses 




Fusebox must have 
fuses for elevator to run. 



Hallway 




3rd floor 



Library 



Bookcase 



Must move to 
gain access to 
room 1 1 



li 



Contains bone 
and dog biscuits 



Hallway 
Dog 



-/' 



Must give bone 



Maid's Room 
Laundry chute 



Bedroom 
Gold key 



Need to descend 
to 2nd floor 



Needed to open 
door on 2nd floor 



i r 
« — » 

J L 



12 



Kitchen 
i Cabinet 



Hallway 
— i 



Elevator 



10 



13 



2nd floor 
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Needed to open elevator door 
-i . . 



14 



Shop 
Crowbar" 



17 



Hallway 



20 



Laundry 
room 

Gloves 



Needed to slide 
down elevator shaft 



IT 

JL 



Master bedroom 



Hallway 
A 



21 



Butler's 
room 

Red key 



■v 



Needed to open 
door to room 30 



15 



16 



Bedroom 

Blue key 
— I— 



Needed to open door to room 21 



ir 



JL 



Hallway 



19 



22 



Elevator 
shaft 




Basement 



25 



Chimney a 



Janitor's 
workroom 

Water 



^r 



23 



Needed to extinguish fire 



24 



Storage 
Bucket 



Needed to hold water 



26 



Janitor's 
quarters 

Fireplace 



27 



Elevator 
shaft 
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1st floor 




Gorilla 



28 



31 



Chimney 



29 



Hallway 



32 



Lounge 



Main lobby 



Hallway 



30 



34 



33 



Food locker 
Banana 



+ 



Must insert 
drugs into banana 



Contains drugs 

to put gorilla 

to sleep 



35 



Bathroom 
Cabinet 



THE FLOWCHART 



( Begin J 



Title music 
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Initialize 



Set variables 



o 



© 



Draw room 



Find location 
of object 



Draw or 
erase objects 



Player input 



© 



© 
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Set pen to 
erase or draw 



6 



o 



«« No 
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THE PROGRAM 

Begin by initializing the program. Turn off graphics, clear reg- 
ister of last key pressed (764), and create a graphics mode using 
memory locations 1373 and 1374 as in the Blackboard's Treasure 
program. 

5 U:*INITIALIZE 

5350 tINITIALIZE 

5355 GR:QUIT 

5360 C:5)B764=255 

5365 C:S)B 1373=0 CNO TEXT WINDOW 

5370 C:3B 1374=2 [GRAPHICS MODE 2 

The title is displayed: 

5375 WRITE: S, 

5380 P0S:7,4 

5385 WRITE:S,eS[inverse]cA[inverse o-f-fUpE 

5390 P0S:3,8 

5395 WRITE: S, by jack hardy 

5400 CLOSE: S 

Set Variables and assign room numbers to all objects: 

#L = lights on or off 
#R = room number 
#F = floor player is on 

$ROOM = the variable used to change rooms 

$OBJECT = description of all objects that player sees in the 

room 

Memory locations 1541 through 1572 are set up to contain the 
room number or the status of objects. 

(Note: When memory location is set to 100, the object is in limbo 
until needed.) 
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5405 


C: 


#L=1 


5410 


C. 


#R=1 


5415 


C: 


#F=4 


5420 


C 


*R00M=R00M1 


5425 


C: 


5)81541 = 1 


5430 


C 


: 5)8 1542= 100 


5435 


c. 


5)81543=5 


5440 


c 


: SB 1544=100 


5445 


c- 


5>B 1545=100 


5450 


c. 


S>B1546=12 


5455 


C: 


5)81547=14 


5460 


C 


: 5)81548=16 


5465 


C 


: 5)61549=100 


5470 


C 


:5>B 1550=23 


5475 


C 


:£>B1551=24 


5480 


C 


: 5)8 1552=33 


5485 


C 


:5>B 1553= 100 


5490 


C 


: SB 1554=21 


5495 


C 


.5)81555=100 


5500 


C 


: 361556= 100 


5505 


c. 


:#M=1557 


5510 


*L00P1 


5515 


C:3B#M=0 


5520 


C:#M=#M+1 


5525 


J(#M<1572) :*L00P1 


5530 


C:*0BJECT= NOTHING 


5535 


C:*C0MMA=, 


5540 


U: *DARK 


5545 


E 





The adventure begins in the dark. First, check to see if Fusebox 
is working (memory location 1559 set to 1), and if it is, return to 
the main program. If it isn't, continue by turning the inner screen 
black. 

5550 *DARK 

5555 E<S>B1559=1>: 

5560 GR: CLEAR 

5565 C:5)B710=0 



Display message and wait for input. 
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5570 *COMMAND 

5575 T: [esc shift clearllT'S VERY DARK 
i i 

5580 T:WHAT DO YOU WANT TO DO? 

5585 A: 

5590 M: FEE, LOO, GO ,MOV,LIG 

5595 JM:*F,*L,*G,*G,*LI 

5600 T: [esc shift clear TYOU CAN'T DO T 

HAT NOW ! ! 

5605 *WAIT2 

5610 PA: 140 

5615 J:*COMMAND 

Player tries to LOOK around in the dark. 

5650 *L 

5655 T:Cesc shift clearllT IS TOO DARK 

TO SEE ANYTHING! ! 
5660 J:*WAIT2 

Player wants to move around in the dark. 

5665 *G 

5670 T:Cesc shift clearDIT'S DANGEROUS 

TO MOVE IN THE DARK! ! 
5675 PA: 240 
5680 J:*DEAD4 
5790 *DEAD4 

5795 T:Cesc shift clearDYOU FALL AND B 
REAK YOUR NECK ! ! 
5800 J : *DEATHMARCH 

If player moves, the program plays music and checks to see if 
player wants to play again. 

5820 *DEATHMARCH 
5825 C:#P=2 
5830 SO: 5 
5835 PA: 32 
5840 U:*PAUSE 
5845 SO: 5 
5850 PA: 16 
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5855 U:*PAUSE 

5860 SO: 5 

5865 PA: 4 

5870 U:*PAUSE 

5875 SO: 5 

5880 PA: 32 

5885 U:*PAUSE 

5890 SO: 8 

5895 PA: 16 

5900 U:*PAUSE 

5905 SO: 7 

5910 PA:8 

5915 U: <PAUSE 

5920 SO: 7 

5925 PA: 8 

5930 U:*PAUSE 

5935 SO: 5 

5940 PA: 8 

5945 U:*PAUSE 

5950 SO: 5 

5955 PA: 8 

5960 U:*PAUSE 

5965 SO: 4 

5970 PA: 8 

5975 U:*PAUSE 

5980 SO: 5 

5985 PA: 32 

5990 S0:0 

5995 tPLAYAGAIN 

6000 T: [esc shift clear/6 spaces D WANT 

TO TRY AGAIN? (Y/N) 

Set memory location 764 for no key pressed and then check for 
which key pressed (43 = Y, 35 = N). (For more internal values stored 
in location 764 when keys are pressed, see Appendix B.) 

6005 C:a)B764=255 

6010 *YNKEY 

6015 JOB764=43> :*INITIALIZE 

6020 J (S)B764=35) : *STOP 

6025 J:*YNKEY 

Pause routine for music. 
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6030 *PAUSE 
6035 SO:0 
6040 PA:#P 
6045 E: 

If player wants to quit: 

6050 *ST0P 

6055 GR:QUIT 

6060 C: 5)764=255 

6065 T: Cesc shift clear] THANKS FOR PL A 

YING! ! ! 

6070 E: 

If the player decides to FEEL around, the program first checks to 
make sure flashlight is in the room (memory location 1541 holds 
the room number where flashlight is located). 

5620 *F 

5625 T<S>B154K>#R) : Cesc shift clearJYO 

U DON'T FEEL ANYTHING! ! 

5630 JOB154K>#R) :*WAIT2 

When player finds the flashlight, assign a value of to memory 
location 1541, which tells the computer the object is now in the 
possession of the player. 

5635 T:Cesc shift clearUYOU FIND A FLA 

SHLIGHT! ! 

5640 C:S)B1541=0 

5645 J:*WAIT2 

When the player wishes to turn the flashlight on, the program 
makes sure it is in his or her possession. 

5685 *LI 

5690 TOB154100) : Cesc shift clearUYOU 

DON'T HAVE THE FLASHLIGHT!! 
5695 JOB1541O0) :*WAIT2 



1 1 GRAPHIC ADVENTURES 

When memory location 1541 equals (i.e., player has flashlight), 
the flashlight can be turned on. Set the colors and jump to the 
first room (#1). 

5700 C: SB 1558=1 

5705 C:5>B710=148 

5710 C:S>B709=42 

5715 E: 

( * ) RUN 
Assign values to all of the necessary variables for Room #1. 



10 


*R00M1 




15 


U: 


*BR 




20 


C: 


*AREA=>BEDROOM 


25 


C: 


#E=2 




30 


C: 


#S=3 




35 


J: 


*P 





The first graphics routine draws the room: 

3875 *BR 

3880 GR: CLEAR; PEN YELLOW 

3885 6R : G0T074 , 44 ; TURNTO 1 80 ; DR AW23 ; TUR 

N45 ; DRAW7 1 ; TURN 1 35 ; F I LL23 ; TURN45 ; F I LL7 



3890 GR : G0T0-50 , -6 ; DR AW37 

3895 GR : G0T0-76 , -30 ; TURNTOO ; F I LL23 ; TUR 

N45;FILL72 

3900 GR:PEN ERASE; G0T050, 21 ; DRAW40 

3905 GR : G0T0-75 , -6 ; TURN45 ; DRAW26 

3910 GR:G0T0-23,45;TURN90;DRAW24 

3915 GR : GDT023 , -6 ; DR AW24 

3920 E: 

Now print information. 

Note: If flashlight is not on, jump to dark routine: 

1310 *P 

1315 U OBI 558=0 ) :*DARK 

Description of room: 
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1320 T: [esc shift clear] LOCATION: »ARE 
A 

The floor number the player is on: 

1325 T(#F=4):L4 esc tabs/esc ctrl -/es 

c ctrl + I4TH FLOOR 

1330 T(#F=3):C4 esc tabs/esc ctrl -/es 

c ctrl +H3RD FLOOR 

1335 T(#F=2):C4 esc tabs/esc ctrl -/es 

c ctrl + 3 2ND FLOOR 

1340 T(#F=1):C4 esc tabs/esc ctrl -/es 

c ctrl + D1ST FLOOR 

1345 T(#F=0):C4 esc tabs/esc ctrl -DBA 

SEMENT 

Draw arrows for the directions in which player can travel: 

1 350 U ( #N< >0 ) : 4N0RTHD00R 
1 355 U ( #S< >0 ) : *S0UTHD00R 
1360 U<#E<>0> :*EASTD00R 
1 365 U ( #W< >0 ) : * WESTDOOR 
1370 U (#D< >0) : *D0WNARR0W 
1 375 U ( #U< >0 ) : *UPARR0W 

Jump to module that checks placement of the object on the screen: 

1380 U:*PL 

Set other variables and jump to routine to print items seen in the 
room: 

1385 C:#L=1 

1390 C:#M=1540 

1395 C:#I=0 

1400 C:*ITEMS=$OBJECT 

1405 A: =* ITEMS 

1410 M: NOTHING 

1415 CN:#I=#I+1 

1420 U: * ITEMS 

Print all items in the room: 

1425 T: VISIBLE ITEMS: \ 
1430 T:*ITEMS 
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The graphics routines to draw the doors and arrows. 

Note: The program is matching room numbers in the routines 
below to see if a door should be drawn. Sometimes the player 
can go in a direction where there is no door (e.g., hallway). 

4110 *SOUTHDOOR 

4115 A:=*R 

4120 M:7 , 

4125 JY:*SOUTHARROW 

4130 GR:PEN ERASE; TURNTOO; GOTO-40, -30; 

2 ( DRAW2 1 ; TURN90 ; DRAW 1 5 ; TURN90 ) ; GOTO-28 

, -20; 4 (DRAW 1 ; TURN90) 

4135 J: JSOUTHARROW 

4140 *SOUTHARROW 

4145 GR:PEN RED; TURNT090; G0T061 , -30; DR 

AW4; TURN-90; DRAW2; TURN-90; DRAW4; TURN90 

; DRAW2; TURN90; DRAW4 

4150 GR : TURN90 ; G0T063 , -20 ; DRAW4 ; TURN 1 3 

5 ; DRAW3 ; TURN90 ; G0T063 , -24 ; DRAW3 

4155 E: 

4160 tNORTHDOOR 

4165 A:=*ROOM 

4170 M:M6 ,13 ,22 ,27 , 

4175 CY:#X=10 

4180 CY:#Y=20 

4185 JY:*ELEDOOR 

4190 GR:PEN ERASE; TURNTOO; G0T08, 20; 2 (D 

RAW21 ; TURN90; DRAW 15; TURN90) ; G0T020, 30; 

4(DRAW1;TURN90) 

4195 J : *N0RTHARR0W 

4200 *NORTHARROW 

4205 GR:PEN RED; GOT063, -18; DRAW4; TURN1 

35 ; DR AW3 ; TURN90 ; G0T063 ,-14; DR AW3 

4210 GR: TURNTOO; G0T061 , -12; DRAW4; TURN1 

35; DRAWS; TURN- 135; DRAW4 

4215 E: 

4220 *EASTDOOR 

4225 A:=*ROOM 

4230 M:M3 , M9 ,17 ,18 ,29 , 

4235 JY:*EASTARROW 

4240 GR:PEN ERASE 

4245 GR : TURNTOO ; G0T048 , -8 ; 2 ( DRAW2 1 ; TUR 

N45; DRAW13; TURN135) ; G0T054, 8; 2 (DRAW1 ; T 



URN45; DRAW1 ; TURN 135) 

4250 J:*EASTARR0W 

4255 *EASTARR0W 

4260 BR: PEN RED; TURNT090; G0T064, -19; DR 

AW6; TURN135; DRAW3; TURN90; B0T070, -19; DR 

AW3 

4265 GR : TURNT0270 ; G0T075 ,-21; DRAW3 ; TUR 

N90; DRAW4; TURN90; DRAW3; G0T073, -19; DRAW 1 

4270 E: 

4275 *WESTD00R 

4280 A:=*ROOM 

4285 M:M4 ,10 ,18 ,19 ,34 , 

4290 JY: *WESTARROW 

4295 M:26 ,32 , 

4300 EY: 
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DRAW21;TU 
(DRAW1 



4300 EY: 

4305 GR:PEN ERASE 

4310 GR:TURNT00;G0T0-48,-5;2(DRP 

RN45;DRAW13;TURN135) ;GOTO-42, 10; v 

; TURN45 ; DRAW 1 ; TURN 1 35 ) 

4315 J:*WESTARROW 

4320 tWESTARROW 

4325 GR;PEN RED; TURNT0270; 60T062, -19; 1 

RAW6 ; TURN 1 35 ; DRAW3 ; TURN90 ; G0T056 , - 1 9 ; D 

RAW3 

4330 GR : TURNTO 1 80 ; G0T054 ,-17; DRAW4 ; TUR 

N135; DRAW3; TURN-90; DRAW3; TURN 135; DRAW4 

4335 E: 

440"=; *nnuiMARRnw 



4335 E: 

4405 * DOWN ARROW 
4410 A:=#R 
4415 M: 11 



4420 EY: 

4425 GR:PEN RED; TURNTO 180; G0T0-72, 34; D 

R AW4 ; TURN 1 35 ; DR AW3 ; TURN90 ; GOTQ-72 , 30 ; D 

RAW3 

4430 GR : G0T0-74 , 28 ; TURN45 ; 1 1 ( DRAW 1 ; TUR 

N 1 8 ) ; TURNTOO ; DRAW6 ; PEN ERASE 

4435 E: 

4440 *UPARROW 

4445 GR:PEN RED; TURNTOO; G0T0-72, 36; DR A 

W4; TURN135; DRAW3; TURN90; GOT0-72, 40; DRA 

W3 

4450 GR : TURNTO 1 80 ; G0T0-70 , 46 ; 3 ( DRAW4 ; T 

URN90) ;PEN ERASE 



URN90) ;PEN ERASE 
4455 E: 
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The routine below is used to determine where objects should be 
placed on screen. 

4460 *PL 

4465 C:#X=-24 

4470 C:#Y=16 

4475 A:=*R00M 

4480 M:M3 , M4 , M6 ,10 ,13 ,17 ,18 ,19 

,22 ,25 ,27 ,31 ,34 ,35 , 

4485 CY:#X=-54 

4490 CY:#Y=-12 

4495 M:M9 ,29 , 

4500 CY:#X=10 

4505 CY:#Y=24 

4510 E: 

The program below checks for items in each location. 

Nofe: #M is a memory location which holds the current status of 
the item. This was set to 1540, in line 1390; it is then incremented 
by 1 in line 1490 as the first location to check. As it loops, it 
checks the value of the memory location to find which is equal 
to the room the player is now occupying. On each loop #M is 
incremented to the next memory location. If it finds something 
in the room, it jumps out of the routine to find out what item has 
been found, and then jumps to a graphics routine to draw a 
picture of the item. 

1485 * ITEMS 

1490 C:#M=#M+1 

1495 U(#R=5>B#M):*VISIBLE 

1500 J (#M< 1557) :* ITEMS 

1505 E: 

Next add the name of the object to the variable $ITEMS. 

1585 tVISIBLE 

1 590 C ( # I >0 ) : * I TEMS=* I TEMS*COMMA 

1595 C:#I=#I+1 
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1600 


C:#V=#M-1540 




1605 


C(#V=1) :*ITEM= 


FLASHLIGHT 


1610 


C<#V=2> :*ITEM= 


FUSES 


1615 


C(#V=3) :*ITEM= 


PAINTING 


1620 


C(#V=4) :*ITEM= 


DOG BISCUITS 


1625 


C(#V=5):*ITEM= 


BONE 


1630 


C(#V=6) :$ITEM= 


BROWN KEY 


1635 


C(#V=7) :*ITEM= 


CROWBAR 


1640 


C(#V=8) :*ITEM= 


BLUE KEY 


1645 


C(#V=9) :*ITEM= 


GLOVES 


1650 


C(#V=10) :*ITEM- 


■ WATER 


1655 


C(#V=11) :*ITEM= 


= BUCKET 


1660 


C(#V=12) :*ITEM= 


= BANANA 


1665 


C(#V=13) :*ITEM= 


= DRUGS 


1670 


C(#V=14) :*ITEM= 


= RED KEY 


1675 


C(#V=15) :*ITEM= 


= FUSEBOX 


1680 


C(#V=16) :*ITEM* 


= PASSAGEWAY 


1685 


C(#I=1) :*ITEMS= 


=*ITEM 


1690 


C(#I>1) :*ITEMS= 


LITEMS* ITEM 


1695 


U: *DRAWPICTURE 




1700 


E: 





The program then jumps to routines to draw a picture of the 
object. 



1705 *DRAWPICTURE 
1710 C:#V=#M-1540 
1715 U(#V=1) :*FLASHPIC 
1 720 U ( #V=2 ) : *FUSEP I C 
1725 U(#V=3) : *PICPIC 
1730 U(#V=4) :*BISPIC 
1735 U(#V=5) :*B0NEPIC 
1740 U(#V=6) :*KEYPIC 
1 745 U ( #V=7 ) : *CR0P I C 
1750 U(#V=8) :*KEYPIC 
1755 U(#V=9) :*GLOVEPIC 
1760 U(#V=11) : tBUCKETPIC 
1765 U(ttV=12) : *BANANAPIC 
1770 U(#V=13) : *DRUGPIC 
1775 U(#V=14) : *KEYPIC 
1780 E: 
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Now add .the graphic routines to draw all of the items in the 
adventure. 



4515 *FLASHPIC 

4520 GR(#L=1):PEN BLUE 

4525 GR(#L=0):PEN ERASE 

4530 GR:TURNT00;G0T0#X,#Y-1 

4535 GR : 2 < DRAW 1 ; TURN90 ; DRAW3 ; TURN90 ) 

4540 GR(#L=1):PEN YELLOW 

4545 GR(#L=0):PEN ERASE 

4550 GR: G0T0#X+3, #Y; TURN45; DRAW3; TURN1 

35; DRAW4; TURN 135; DRAW3 

4555 E: 

4560 *FUSEPIC 

4565 GR(#L=1):PEN RED 

4570 GR(#L=0):PEN ERASE 

4575 GR:TURNT0315;G0T0#X+9,#Y-1;3(DRAW 

1;TURN135) 

4580 E: 



4585 
4590 
4595 
4600 



tPICPIC 

GR:PEN RED;TURNTO 

GR OB 1 555=#R ) : PEN BLUE 

GR : G0T0-48 , -2 ; 2 ( DRAW 1 5 ; TURN45 ; DRA 
W15;TURN135) ; PEN BLUE 
4605 GR(5)B1555=#R) : PEN YELLOW 

GR:G0T0 -47,4 

C:#A=0 

♦SPIRAL 

GR: 2 (DRAW#A; TURN45; DRAW#A*2; TURN1 



4610 

4615 

4620 

4625 

35) 

4630 

4635 

4640 

4645 

4650 

4655 

4660 



C:#A=#A+2 

J(#A<8> :*SPIRAL 

E: 

*BISPIC 

GR(#L=1) :PEN RED 

GR ( #L=0 ) : PEN ERASE 

GR: TURNT045; G0T0#X+13, #Y-1 ; 4 (DRAW 



1;TURN90) 

4665 E: 

4670 *KEYPIC 

4675 A:=*ITEM 

4680 M:BR0, RED, BLUE 

4685 Jh:«BROWNPIC,*REDPIC, 

4690 *BR0WNPIC 



*BLUEPIC 
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4695 GR:PEN YELLOW 
4700 C:#K=#X+40 
4705 J: *KEYPIC2 
4710 *REDPIC 
4715 GR:PEN RED 
4720 C:#K=#X+24 
4725 J:*KEYPIC2 
4730 *BLUEPIC 
4735 GR:PEN BLUE 
4740 C:#K=#X+32 
4745 J:*KEYPIC2 
4750 *KEYPIC2 
4755 GR(#L=0):PEN ERASE 

4760 GR : TURNTOO ; GOTO#K , # Y- 1 ; 4 ( DRAW2 ; TU 
RN90) ; TURNT090; G0T0#K+3, #Y; DRAW3; TURN9 
; DRAW 1 ; G0T0#K+4 , tt Y ; DRAW 1 
4765 E: 
4770 *BONEPIC 
4775 GR:PEN BLUE 
4780 GR(#L=0):PEN ERASE 

4785 GR: TURNT0180; G0T0#X+17, #Y; 2 (DRAW2 
; TURN90; DRAW1 ; TURN90) ; G01 ; TURN-90; DRAW 
4 

4790 GR : 2 ( TURN90 ; DRAW 1 ) ; TURN90 ; DRAW2 ; 2 
(TURN90;DRAW1) 
4795 E: 
4800 *CROPIC 
4805 GR:PEN YELLOW 
4810 6R(#L=0):PEN ERASE 

4815 GR: TURNT0325; GQTO#X, #Y-8; DRAW2; TU 
RNT090 ; DR AW5 ; TURN- 1 35 ; DRAW2 
4820 E: 

4825 *GLOVEPIC 
4830 GR:PEN RED 
4835 GR(#L=0):PEN ERASE 

4840 GR: TURNTOO; G0T0#X+10, #Y-8; 2 (DRAW2 
; TURN90; DRAW4; TURN90) ; TURN-45; DRAW3 
4845 GR: G0T0#X+10, #Y-6; TURNTOO; DRAW2; G 
0T0#X+12, #Y-6; DRAW2; GOTO#X+14, #Y-6; DRA 
Wl 

4850 E: 

4855 *BUCKETPIC 
4860 GR:PEN YELLOW; TURNTO 
4865 GR(#L=0):PEN ERASE 
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4870 GR : S0TO#X+ 1 7 , #Y-8 ; DRAW3 ; 6 ( TURN30 ; 

DRAW1 ) ; DRAW3; TURN90; DRAW4; PENBLUE 

4875 GR(#L=0):PEN ERASE 

4880 GR: G0T0#X+18, #Y-6; TURNT090; DRAW2 

4885 E: 

4890 *DRUGPIC 

4895 GR:PEN RED 

4900 GR<#L=0):PEN ERASE 

4905 GR: G0T0#X+24, #Y-6; G0T0#X+26, #Y-7; 

G0T0#X+28,#Y-8 

4910 GR:PEN BLUE 

4915 GR(#L=0):PEN ERASE 

4920 GR: G0TO#X+24, #Y-8; G0T0#X+30, #Y-6; 

G0T0#X+27,#Y-7 

4925 E: 

4930 *BANANAPIC 

4935 GR:PEN YELLOW 

4940 GR(#L=0):PEN ERASE 

4945 GR: G0T0#X+32, #Y-8; TURNT090; DRAW3; 

TURN-30;DRAW2 

4950 E: 

( * ) RUN 

Now add the input routine. Erase last letter pressed and prepare 
for new input. 

1435 C:3B764=255 

1440 T: [inverse] COMMAND =>[inverse of-f 

3 \ 

1445 A: 

Next check for direction. 

Note: Here the match command is set up to check only the first 
three letters of a word. Therefore, the player could input GO 
NORTH, GO NOR, NORTH, NOR, and even NORSE and the pro- 
gram would interpret each as the player's command to go north 
from the present location. 

1450 M: NOR, SOU, EAS, WES, UP , DOW, 
1455 JM: *NORTH, tSOUTH, *EAST, *WEST, *UP, 
*DOWN 



1470 


T: [esc 


TAND 


THAT ! ! 


1475 


PA: 90 


1480 


J: *P 
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shi-ft clear] I DON'T UNDERS 



Following are the routines for directions. 

Note: If direction variable = — 1, the door is not yet unlocked, 
nor has it been forced open. If the direction variable = there 
is nothing in that direction. 

1785 *NORTH 

1790 J(#N=0> :*CANTGQ 

1795 J <#N=-1 ) : *CHECKDOOR 

1800 C:#R=#N 

1805 J: *CR 

1810 *S0UTH 

1815 J (#S=0> :*CANTG0 

1820 J (#S=-1) :*CHECKDOOR 

1825 C:#R=#S 

1830 J: *CR 

1835 *EAST 

1840 J <#E=0> :*CANTGO 

1845 J(#E=-1) :*CHECKDOOR 

1850 C:#R=#E 

1855 J:*CR 

1860 *WEST 

1865 J (#W=0) : *CANTGO 

1870 J (#W=-1 ) : tCHECKDOOR 

1875 C:#R=#W 

1880 J: *CR 

1885 *UP 

Note: Change the status of the #F variable in the up and down 
routines to show that the player has either gone up or down a 
floor. 

1890 J (#U=0) :*CANTGO 

1895 C:#R=#U 

1900 C:#F=#F+1 

1905 C(#R=27) :#F=#F+1 

1910 J:*CR 

1915 *DOWN 
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1920 


J(#D=0) :*CANTG0 


1925 


J(#R=11) :*H0W 


1930 


J(#R=22) :*CKG 


1935 


C:#R=#D 


1940 


C:#F=#F-1 


1945 


J:*CR 


1950 


*H0W 


1955 


Trtesc shift clearlH 


1960 


J:*WAIT 


1965 


*CANTG0 


1970 


T: Cesc shift clear 31 


THAT 


DIRECTION! ! 


1975 


J:*WAIT 



CAN'T BO IN 



Note: The *CKG routine checks to see if the player is wearing 
the gloves. 

1980 *CKG 

1985 JOB1549O50>:*DEADl 

1990 C:#R=#D 

1995 C:#F=#F-2 

2000 J:*CR 



If the direction status equals 
play the proper message. 



1, check room numbers and dis- 



2005 tCHECKDOOR 
2010 A:=*ROOM 

2015 M:M4 , M9 ,18 ,19 ,20 ,28 ,26 ,32 
,34 , 

2020 JM: *STUCK, tBLOCKED, *LOCKED, tSTUCK 
, *LOCKED, *BL0CKED2, *HOW, *HOW, *LOCKED 
2025 * STUCK 

2030 T:Cesc shift clear]THE DOOR WILL 
NOT OPEN! ! 
2035 J: *WAIT 
2040 tLOCKED 

2045 T:Cesc shift clearUTHE DOOR IS LO 
CKED ! ! 

2050 J:*WAIT 
2055 JBLOCKED 

2060 T:Cesc shift clear 1 THE DOG BLOCKS 
YOUR WAY! ! ! 
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2065 


J: *WAIT 


2070 


*BL0CKED2 


2075 


T: Cesc shi-f t 


OCKS 


YOUR WAY! ! 


2080 


J: *WAIT 



clear] THE GORILLA BL 



The WAIT and OKAY routines: 

2575 *WAIT 

2580 PA: 240 

2585 J:*P 

2590 *0K 

2595 TzCesc shift clearDOKAYM 

2600 PA: 60 

2605 J: *P 

The Change Room routine: 

Note: In the routine above, the value of variable #R is set to 
equal that of the direction variable. Now the program sets 
$ROOMNUM to equal #R. It also sets $OBJECT to nothing and 
clears the direction variables. 



2085 


*CR 


2090 


C:*ROOMNUM=#R 


2095 


C:*OBJECT= NOTHING 


2100 


C:#N=0 


2105 


C:#S=0 


21 10 


C:#E=0 


2115 


C:#W=0 


2120 


C:#U=0 


2125 


C:#D=0 



Change the room number to the new room and input it into the 
running program to match the correct room. 

2 1 30 C : *R0OM=RO0M*RO0MNUM 

2135 A:=$ROOM 

2140 M:M1 , M2 , M3 , M4 , M5 , M6 , M7 , MS 

,M9 ,M10 ,11 ,12 ,13 ,14 , 

2145 JM: *R00M1 , *R00M2, *R00M3, *R00M4, *R 

00M5, *R00M6, *R00M7, *R00M8, *R00M9, *ROOM 

10,*R00M11, *R00M12,*R00M13, *ROOM14 
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2 1 50 M : 1 5 ,16 ,17 ,18 ,19 ,20 ,21 ,22 

,23 ,24 ,25 ,26 , 

2155 JM: *R00M15, *R00M16, *R00M17, *R00M1 

8,*R00M19, *R00M20,*R00M21,*R00M22, *R00 

M23, *R00M24, *R00M25, *R00M26 

2160 M:27 ,28 ,29 ,30 ,31 ,32 ,33 ,34 

,35 ,50 , 

2165 JM: *R00M27, *R00M28, *R00M29, *R00M3 

0, *R00M31 , *R00M32, *R00M33, *R00M34, *R00 

M35,*WIN 

2170 E: 

Next, add more rooms. 

Note: In the Blackboard's Treasure program, the variables con- 
tained information about the current status of objects. In this 
program, the memory location assigned to certain objects is used 
to inform the program of the current status of those objects. The 
conditional command checks the number stored in these memory 
locations to change descriptions of the game locations or to relay 
messages. 



40 


*R00M2 




45 


U:*BR 




50 


U:*CP 




ETC 


C: *AREA=W0RKSH0P 


60 


C:*0BJECT 


'= CABINET 


65 


C(5>B1561 = 


1) :*0BJECT= 


70 


C:#W=1 




75 


J:*P 




80 


*R00M3 




85 


U: *HW 




90 


U:*CW 




95 


U: *HD 




100 C:*AREA= 


HALLWAY 


105 C:#N=1 




110 C:#S=5 




115 C:#E=4 




120 J:*P 




125 *R00M4 




130 U:*HW 




135 U:*CE 




140 U:*HD 





OPEN CABINET 
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145 


C: *AREA=HALLWAY 


150 


C:#S=-1 


155 


COB1559=l) :#S=6 


160 


C:#W=3 


165 


J:*P 


170 


*R00M5 


175 


U:*BR 


180 


U:*PICPIC 


185 


C:*AREA=0FFICE 


190 


C:#N=3 


195 


J:*P 


200 


*R00M6 


205 


U:*SR 


210 


C: *AREA=ELEVAT0R 


215 


C:#N=4 


220 


C:#D=13 


225 


J: *P 


230 


*R00M7 


235 


U:*BR 


240 


U: *B00KCPIC 


245 


C:*AREA=LIBRARY 


250 


C:#E=9 


255 


C:*0BJECT= BOOKCASE 


260 


COB1562=l) :#S=11 


265 


COB1562=l) :*0BJECT= OPEN BOOKCASE 


270 


J: *P 


275 


*R00M8 


280 


U: *BR 


285 


U:*CP 


290 


C:*AREA=KITCHEN 


295 


C:#S=10 


300 


C:$0BJECT= CABINET 


305 


C OB 1 563= 1 ) : *0B JECT= OPEN CAB I NET 


310 


J: *P 


315 


*R00M9 


320 


U:*ELB0W 


325 


U: *D0GPIC 


330 


C: *AREA=HALLWAY 


335 


C:*0BJECT= DOS 


340 


C:#S=12 


345 


C:#W=-1 


350 


C(5)B1557=1) :#W=7 


-rrir 

■jJJ 


COB1557=l) :*0BJECT= NOTHING 


360 


C:#E=10 
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365 J:*P 

370 *R00M10 

375 U: *HW 

380 U: *CE 

385 C:*AREA=HALLWAY 

390 U: *HD 

395 C:#S=13 

400 C:#W=9 

405 C:#N=8 

410 J:*P 

415 *R00M11 

420 U: *BR 

425 C:*AREA=MAID'S ROOM 

430 C:#N=7 

435 C:#D=20 

440 C:*OBJECT= LAUNDRY CHUTE 

445 J:*P 

450 4R00M12 

455 U:*BR 

460 C:*AREA=BEDROOM 

465 C:#N=9 

470 J:*P 

475 *R00M13 

480 U:*SR 

485 C:*AREA=ELEVATOR 

490 C:#N=10 

495 C:#U=6 

500 J:*P 

505 *R00M14 

510 U:*BR 

515 C:$AREA=SHOP 

520 C:#S=17 

525 C:#E=15 

530 J : *P 

535 *R00M15 

540 U:*BR 

545 C:*AREA=MASTER BEDROOM 

550 C:#W=14 

555 C:#E=16 

560 J:*P 

565 4R00M16 

570 U:*BR 

575 C:*AREA=BEDROOM 

580 C:#W=15 
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585 


J: *P 


590 


* ROOM 17 


595 


U:*HW 


600 


U:*CW 


605 


U:*HD 


610 


C:*AREA=HALLWAY 


615 


C:#N=14 


620 


C:#S=20 


625 


C:#E=18 


630 


J:*P 


635 


*R00M18 


640 


U:*HW 


645 


U:*HD 


650 


C: *AREA=HALLWAY 


655 


C:#E=19 


660 


C:#W=17 


665 


C:#S=-1 


670 


COB1566=l):#S=21 


675 


J:*P 


680 


* ROOM 19 


685 


U:*HW 


690 


U:*HD 


695 


U:*CE 


700 


C:*AREA=HALLWAY 


705 


C:#W=18 


710 


C:#S=-1 


715 


COB 1564=1) :#S=22 


720 


J: *P 


725 


*ROOM20 


730 


U:*BR 


735 


C:*AREA=LAUNDRY ROOM 


740 


C:#N=-1 


745 


C:#U=11 


750 


COB1565=l> :#N=17 


755 


C:*0BJECT= DIRTY CLOTHES 


760 


J: *P 


765 


*ROOM21 


770 


U: *BR 


775 


C:*AREA=BUTLER*S ROOM 


780 


C:#N=18 


785 


J:*P 


790 


♦ROOM22 


795 


U: *SR 


800 


C:*AREA=ELEVATOR SHAFT 
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805 


C:#D=27 


810 


C:#N=19 


815 


J:*P 


820 


*R00M23 


825 


U:*BR 


830 


U:*SINKPIC 


835 


C : * ARE A= J AN I TOR * S WORKROOM 


840 


C:*OBJECT= SINK 


845 


C:#E=24 


850 


C:#S=26 


855 


J:*P 


860 


*R00M24 


865 


U:*BR 


870 


C: *AREA=STORAGE 


875 


C:#S=27 


880 


C:#W=23 


885 


J:*P 


890 


*R00M25 


895 


U:*SR 


900 


U:*FIREPIC 


905 


C:*AREA=CHIMNEY 


910 


C:#U=31 


915 


C:#E=26 


920 


J:*P 


925 


*R00M26 


930 


U:*BR 


935 


U:*FIREPIC 


940 


C : *AREA= J AN I TOR ' S QUARTERS 


945 


C:*OBJECT= FIRE IN FIREPLACE 


950 


C:#N=23 


955 


C:#W=-1 


960 


COB 1567=1) :#W=25 


965 


C OBI 567=1 ) :*OBJECT= FIREPLACE 


970 


J:*p 


975 


*R00M27 


980 


U:*SR 


985 


C:*AREA=ELEVATOR SHAFT 


990 


C:#N=24 


995 


C:#U=22 


1000 J:*p 


1005 *ROOM28 


1010 U:*BR 


1015 U:*G0RILLAPIC 


1020 C:*AREA=Z00 
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1025 C:#S=32 

1030 C:*0BJECT= GORILLA 

1 035 C OB 1 568= 1 ) : *0B JECT= SLEEP I NG GOR I LLA 

1040 C:#E=-1 

1045 COB1568=l) :#E=29 

1050 J:*P 

1055 *R00M29 

1060 U:*ELB0W 

1065 C:*AREA=HALLWAY 

1070 C:#W=28 

1075 C:#E=34 

1080 J: *P 

1085 *R00M30 

1090 U: *BR 

1095 C:*AREA=MAIN LOBBY 

1100 C:#N=50 

1105 C:#S=34 

1110 J:*P 

1115 *R00M31 

1120 U:*SR 

1125 U: *FIREPIC 

1130 C:*AREA=CHIMNEY 

1135 C:#E=32 

1140 C:#D=25 

1145 J:*P 

1150 *ROOM32 

1155 U:*BR 

1160 U: *FIREPIC 

1165 C:*AREA=LOUNGE 

1170 C:*0BJECT= FIREPLACE 

1175 C:#N=28 

1180 C:#E=33 

1185 C:#W=31 

1190 J:*P 

1195 *R00M33 

1200 U:*BR 

1205 C:*AREA=FOOD LOCKER 

1210 C:#S=35 

1215 C:#W=32 

1220 COB1552O0) :3B1552=33 

1225 J:*P 

1230 *R00M34 

1235 U: *HW 

1240 U:*CE 
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1245 C:*AREA=HALLWAY 

1250 C:#W=29 

1255 C:#N=-1 

1260 C OB 1 569=1 ):#N=30 

1265 J:*P 

1270 *R00M35 

1275 U:*SR 

1280 U:*MCP 

1285 C:*AREA=BATHR00M 

1290 C:#N=33 

1295 C:*OBJECT= MEDICINE CABINET 

1300 C OBI 570=1 ) : *0BJECT= OPEN MEDIC IN 

E CABINET 

1305 J:*P 

Now the graphic routines are needed to draw the small room, 
halls, elevators, etc. 

3925 *SR 

3930 GR: CLEAR; PEN YELLOW 

3935 GR : G0T056 , 44 ; TURNTO 1 80 ; DRAW23 ; TUR 

N45 ; DRAW4 1 ; TURN 1 35 ; F I LL23 ; TURN45 ; F I LL4 

O 

3940 GR : G0T0-6 ,16; DRAW6 

3945 GR: G0T0-32, -9; TURNTOO; FILL24; TURN 

45;FILL41 

3950 GR:PEN ERASE; G0T032, 21 ; DRAW40 

3955 GR : G0T0-3 1,16; TURN45 ; DRAW26 

3960 GR : G0T026 ,16; TURN90 ; DRAW24 

3965 GR : GOTO- 1 , 45 ; DRAW24 ; G0T0-32, -9 

3970 E: 

3975 *HW 

3980 GR: CLEAR; PEN YELLOW 

3985 GR : G0T074 , 44 ; TURNTO 1 80 ; DR AW23 ; TUR 

N90 ; DRAW 121; TURN90 ; F I LL23 

3990 GR : G0T046 ,16; TURN 1 80 ; DRAW23 ; TURN9 

O ; DRAW 121; TURN90 ; F I LL23 

3995 GR : TURN45 ; G0T0-50 ,17; DRAW4 

4000 GR : G0T046 , -7 ; DRAW38 

4005 E: 

4010 *CE 

4015 GR:PEN YELLOW; TURNTOO; G0T046, -7; F 

I LL24 ; TURN45 ; F I LL4 ; PEN ERASE 
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402O GR : TURN-45; GO 1 ; TURN45; DRAW38 

4025 GR : TURN-45 ; G0T045 , -7 ; DRAW24 

4030 E: 

4035 *CW 

4040 GR : PEN YELLOW ; TURNT045 ; G0T0-75 , 1 7 

;FILL38 

4045 GR:PEN ERASE; G03; TURN 135; DRAW29; T 

URN90;DRAW30 

4050 E: 

4055 *ELBOW 

4060 GR: CLEAR; PEN YELLOW 

4065 GR : TURNTO 1 BO ; G0T044 ,10; DRAW23 ; TUR 

N45 ; DRAW23 ; TURN 1 35 ; DRAW 1 6 ; F I LL7 ; TURN 1 8 

0;DRAW23;TURN90 

4070 6R:DRAW104;TURN90;FILL23 

4075 GR:PEN ERASE; TURN90; DRAW46; TURN-9 

0;PEN YELLOW; FILL 16 

4080 GR : TURN90 ; G023 ; TURN-45 ; GO 1 ; DRAW22 

; TURN-45 ; DRAW23 ; TURN- 1 35 ; F I LL53 

4085 GR: G0T0-22, 23; DRAW44; GOTO-22, 48; F 

ILL76 

4090 GR: TURN- 135; PEN ERASE; DRAW 104; TUR 

N-45;DRAW23 

4095 GR : TURN- 1 35 ; DRAW74 ; TURN 1 35 ; DRAW52 

4 1 00 GR : TURN-45 ; G0T0-2 1 , 24 ; DRAW23 ; GOTO 

28,-29;DRAW23 

4105 E: 

These routines draw hall and elevator door pictures: 

4340 *HD 

4345 As=*ROOM 

4350 M:R00M4 , ROOM 10 , ROOM 19 , 

4355 CY:#X=-25 

4360 CY:#Y=-8 

4365 JY:*ELEDOOR 

4370 GR:PEN ERASE; TURNTOO; G0T0-20, -8; 2 

( DRAW2 1 ; TURN90 ; DRAW 1 5 ; TURN90 ) ; G0T0-8 , 2 

;4(DRAW1;TURN90) 

4375 J: *SOUTHARROW 

4380 *ELEDOOR 

4385 GR:PEN ERASE 

4390 GR: TURNTOO; GOTO#X , #Y; 3 (DRAW20; TUR 



130 GRAPHIC ADVENTURES 

N90);DRAW10;TURN90;DRAW20;G0T0#X+22,#Y 

+10;G0T0#X+22,#Y+12 

4395 J (#X=-25) : *SOUTHARROW 

4400 J:*NORTHARROW 

These routines draw the room contents pictures: 

4955 *CP 

4960 GR:PEN RED; TURNTOO; G0T010, 25 

4965 GR:4(DRAW 15; TURN 90) 

4970 U:*CHECKCABPIC 

4975 GR(#0=1):PEN YELLOW 

4980 GR: G0T017, 26; DRAW14; G0T015, 32; GOT 

019,32 

4985 GR (#0=1): PEN RED; G0T010, 25; TURNTO 

225 ; DR AW5 ; TURN 1 35 ; DRAW 1 5 ; TURN45 ; DR AW5 

4990 GR ( #0= 1 ) : TURN45 ; DRAW 1 5 ; TURN45 ; DRA 

W5 ; TURN45 ; DRAW 1 5 ; TURN 1 35 ; DR AW5 

4995 E: 

5000 *CHECKCABPIC 

5005 A:=#R 

5010 M:2 ,8 , 

5015 JM:*CAB2PIC,*CAB8PIC 

5020 E: 

5025 *CAB2PIC 

5030 C:#0=0 

5035 COB1561 = l) :#0=1 

5040 E: 

5045 *CAB8PIC 

5050 C:#0=0 

5055 C(S)B1563=1) :#0=1 

5060 E: 

5065 *B00KCPIC 

5070 GR:PEN BLUE; G0T0-30, -6; TURNTOO 

5075 GR ( S)B 1 562=0 ) : 2 ( DR AW3 ; TURN90 ; DR AW3 

2;TURN90) ;FILL3 

5080 GR OB 1562=1) : G0T0-27, -6; PEN RED; T 

URN67 ; DR AW26 ; TURN-90 ; DR AW3 ; TURN-90 ; F I L 

L32 

5085 E: 

5090 *MCP 

5095 GR:PEN RED; G0T0-4, 15; TURNT045; 2 (D 

R AW3 ; TURN45 ; DRAW 1 5 ; TURN 1 35 ) ; F I LL3 
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5110 *G0RILLAPIC 
5115 GR:PEN YELLOW; TURNT0270 
5 1 20 GR OB 1 568= 1 ) : PEN ERASE 
5125 GR : G0T032 , 4 ; DRAW 1 ; TURN90 ; DRAW2 ; TU 
RN-45 ; DRAW3 ; TURN90 ; DRAW 1 ; TURN-45 ; DRAW3 
;TURN90;DRAW2 

5130 GR : TURN90 ; DR AW2 ; TURNT090 ; DRAW 1 ; TU 
RN-90; DRAW3; TURN-90; DRAW4; 2 (TURN90; DRA 
Wl) ; TURN-90 

5135 GR : DR AW2 ; TURN-90 ; DRAW4 ; 2 ( TURN-90 ; 
DRAW2) ; TURN90; DRAW1 ; TURN90; DRAW5; TURN- 
90; DRAW3 

5 1 40 GR : TURN-90 ; DRAW 1 ; TURN-90 ; DRAW2 ; TU 
RN90; DRAW2; TURN90; DRAW4; G0T027, B; TURNT 
0225; DRAW3; TURN-45 

5145 GR:DRAW2;TURN90;DRAW1;G0T028, 15; G 
0T030,8;G0T025, 15;G0T031, 15 
5 1 50 GR : G0T029 , 1 2 ; DRAW2 ; G0T029 ,11; DRAW 
2 ; G0T029 ,10; DR AW2 ; G0T029 , 9 ; DRAW2 
5155 GR OBI 568=1 ): PEN BLUE; TURNTOO; GOT 
1 8 , 4 ; DRAW 1 ; TURN90 ; DRAW3 ; TURN- 1 35 ; DRAW 

5160 GR ( 5>B 1 568= 1 ) : PEN YELLOW ; TURN90 ; DR 

AW1 ; TURN45; DRAW4; TURN45; DRAW3; TURNTOO; 

4(DRAW3;TURN90) 

5165 GR OB 1568=1 ) : TURN-90; DRAW5; TURN45 

; F I LL3 ; G0T027 , 8 ; TURN 1 35 ; DRAW 1 ; G0T027 , 7 

;DRAW1 

5170 GR OBI 568=1 ): PEN BLUE; G0T025, 7; TU 

RN45; DRAW3; TURN-45; DRAW3 

5175 E: 

5180 tDOGPIC 

5185 GR:PEN YELLOW; TURNTOO 

5190 GR OB 1 557= 1 ) : PEN ERASE 

5 1 95 GR : GDTO-40 , -4 ; DRAW 1 ; 2 ( DRAW2 ; TURN9 

O ; DR AW4 ; TURN90 ) ; G02 ; TURN-45 ; DRAW 3 

5200 GR : GOTO-33 , -2 ; DR AW3 ; G0T0-33 , -2 ; TU 

RN-45; DRAW6; G0T0-35, -1 ; TURN-90; G0T0-36 

,-3;DRAWl 

5205 E: 

5210 *FIREPIC 

5215 C:#X=-48 
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5220 C:#Y=-5 



5220 C:#Y=-5 

5225 A:=*R0GM 

5230 M:25 ,31 , 

5235 CY:#X=36 

5240 CY:#Y=0 

5245 GR:PEN RED; TURNT00; G0T0#X, #Y; 2 (DR 

AW2 1 ; TURN45 ; DRAW2 1 ; TURN 1 35 ) 

5250 GR: G0T0#X+4, #Y+4; 2 <DRAW18; TURN45; 

DRAW 1 4 ; TURN 1 35 ) ; GOTO#X , #Y+23 ; TURN45 ; DR 

AW20 



AW20 

5255 C:#P=#Y+3 

S9Afl tfiPirk'Q 



5255 C:#P=#Y+3 

5260 * BRICKS 

5265 GR:GGT0#X+1,#P;DRAW3 

5270 C:#P=#P+3 

5275 J(#P<16) :*BRICKS 

5280 GR: PENBLUE; G0T0#X+6, #Y+8; TURNTOO; 

DRAW 1 ; TURN90 ; DR AW2 ; TURN-90 ; DRAW 1 

5285 GR: GOTO* X+10, #Y+12; DRAW 1 ; TURN-90; 

DRAW4 ; TURN 1 80 ; DRAW7 ; TURN-90 ; DRAW 1 

5290 GR:PEN RED 

5295 GR OB 1567=1) : PEN YELLOW 

5300 GR: G0T0#X+5, #Y+15; TURNT045; DRAW3; 

TURN90 ; DR AW3 ; TURNT045 ; G02 ; DR AW3 

5305 E: 

5310 tSINKPIC 

5315 GR:PEN RED; TURNTOO; G0T0-48, 5; 2 (DR 

AW2; TURN90; DRAW6; TURN90) ; G01 ; TURN90; DR 

AW6 ; TURN-90 ; GO 1 ; TURN-90 

5320 GR:DRAW6;TURN90;G01;PEN BLUE;2(TU 

RN45 ; DRAW6 ) ; TURN 1 35 ; DRAW6 ; 2 ( TURN45 ; DRA 

W5 ; TURN 1 35 ; DR AW5 ) 

5325 GR : 2 ( TURN45 ; DRAW3 ; TURN 1 35 ; DRAW3 ) ; 

2 (TURN45; DRAW2; TURN 135; DRAW2) ; TURN45; D 

RAW2 

5330 GR:PEN RED; 60T0-41 , 8; TURNT045; DRA 

W6 ; G0T0-4 1,7; DRAW6 

5335 GR : G0T0-4 1 , 6 ; DRAW5 ; G0T0-4 1,5; DRAW 

5 

5340 GR : G0T0-4 1,5; TURNTO 1 80 ; DRAW6 ; GOTO 

-37,8;DRAW6 

5345 E: 

Add more words to the vocabulary. 
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1460 M:TAK,GET,DRO,GIV,UNL,OPE,LOO,EXA 
,LIG, INS, USE, PUS, GO ,INV,THR,WEA 
1465 JM: *TD, *TD, *TD, *TD, *OPEN, *OPEN, *L 
OOK, *LOOK, *LIGHT, *USE, tUSE, *PUSH, *GO, * 
INVENTORY, *THROW, *WEAR 

And add the necessary routines to go with them. These are rou- 
tines for the words TAKE, GET, DROP, GIVE. 

Note: The first step of the different routines TAKE and DROP have 
been combined. Since the first step was to find the memory lo- 
cation which held the status of the object in question, and then 
to decide whether the object could be dropped or taken, combin- 
ing these two routines was quite easy and saved a great deal of 
memory. 

2175 *TD 

2180 M: FLA, FUS, PAI , BIS, BON, KEY, CRO, GLO 

,WAT,BUC,BAN,DRU, 

2185 JM: tFLASHLIGHT, *FUSES, tPAINTING, * 

BISCUITS, *BONE, *KEY, tCROWBAR, tGLOVES, * 

WATER, *BUCKET, *BANANA, *DRUGS 

2190 M:GET,TAK 

2195 TY: [esc shift clearDI CAN'T TAKE 

THAT! ! 

2200 JN:*DONTHAVE 

2205 J:*WAIT 

2210 tFLASHLIGHT 

2215 C:#M=1541 

2220 J:*CM 

2225 *FUSES 

2230 C:#M=1542 

2235 J:*CM 

2240 * PAINTING 

2245 C:5)B 1555=5 

2250 C:#M=1543 

2255 J: *CM 

2260 *BISCUITS 

2265 C:#M=1544 

2270 J:*CM 

2275 *BONE 

2280 C:#M=1545 

2285 J: *CM 
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2290 tCROWBAR 

2295 C:#M=1547 

2300 J:* CM 

2305 *GLOVES 

2310 C:#M=1549 

2315 J:*CM 

2320 *WATER 

2325 JOB155K>0>s*ME8 

2330 C:#M=1550 

2335 J:*CM 

2340 tBUCKET 

2345 C:#M=1551 

2350 J:*CM 

2355 tBANANA 

2360 C:#M=1552 

2365 J:*CM 

2370 *DRUGS 

2375 C:#M=1553 

2380 J:*CM 

Since there are three colored keys in the adventure, the player 
is requested to input the proper color of the key wanted. The 
program then sets the proper memory location. 

2385 *KEY 

2390 M: BROWN, BLUE, RED 

2395 JM:*BROWN,*BLUE,*RED 

2400 T:Cesc shi-Ft clearDWHICH COLOR KE 

y979 

2405 J:*WAIT 
2410 * BROWN 
2415 C:#M=1546 
2420 J:*CM 
2425 *BLUE 
2430 C:#M=1548 
2435 J:*CM 
2440 *RED 
2445 C:#M=1554 
2450 J:*CM 

Here the program actually branches to the proper routines for 
TAKE and DROP. 
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2455 *CM 

2460 M:GET,TAK,DRO,GIV 

2465 JM:*GET,*GET, *DR0P, tDROP 

The TAKE routine checks to see that the player already has the 
object and is in the correct room with the object by checking the 
status of the memory location set in the combined TAKE and 
DROP routine above. 

Example: The player wants to take the red key, and therefore 
types GET RED KEY and hits RETURN. The program quickly scans 
the words and, finding a match, jumps to the routine *TD. There 
it finds a match to the word KEY and jumps to the routine *KEY, 
where it finds a match to the color RED and sends it to the proper 
routine to set the #M (memory location variable) to the value of 
1554. The program then continues to the *CM routine, where it 
again sees the match to the word GET and sends the program 
to the routine below where the value of the memory location for 
that item is compared to ascertain that it is legal for the player 
to do what is wanted (e.g., Does the player already have the red 
key and, if not, is the key really in the room with the player?). 

2470 *GET 

2475 JOBMM=0) : *HAVE 

2480 J (S)B#M< >#R) : *NOTHERE 

2485 C:S>B#M=0 

2490 C:#L=0 

2495 U:*DRAWPICTURE 

2500 J:*OK 

Add the routine to drop an item. 

Note: When an item is dropped, it is assigned the same value 
as the room. This is how the computer knows the item is in that 
room. 

2505 *DROP 

25 1 J ( S>B#M< >0 ) : *DONTHA VE 

2515 C:5)B#M=#R 

2520 C:#L=1 
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2525 J:*OK 

2530 *HAVE 

2535 TrEesc shift clear 1 YOU ALREADY HA 

VE IT! ! 

2540 J:*WAIT 

2545 tNOTHERE 

2550 T: [esc shift clearDTHAT ITEM IS N 

OT HERE ! ! 

2555 J:*WAIT 

2560 *DONTHAVE 

2565 T:Cesc shift clearUYOU AREN'T CAR 

RYING THAT! ! 

2570 J:*WAIT 

Now add the routine for the words OPEN and UNLOCK. 

Note: The program checks for items that can be opened, then 
opens them or displays the appropriate message. 

2610 *OPEN 

2615 M:CAB,FUSEB,BOOKC,DOO 

2620 JM: *CABOP, tFUSEBOP, tBOOKCOP, *DOOP 

2625 M:BOO,FUS 

2630 TY:Cesc shift clear 3 PLEASE TYPE T 

HE WHOLE WORD! ! 

2635 JY:*WAIT 

2640 T:Cesc shift clear] I CAN'T OPEN T 

HAT! ! 

2645 J:*WAIT 

Since there are three cabinets in the adventure, in order for the 
program to know which cabinet the player wants to open it is 
necessary for it to check which room the player is in. 

2650 *CABOP 

2655 A:=*ROOM 

2660 M:M2 , M8 ,35 , 

2665 JM: *CAB1, »CAB2, *CAB3 

2670 J:*NOTHERE 

2675 *CAB1 

2680 J ( :DB 1 56 1 = 1 ) : * ALREADYOPEN 

2685 C:3B1561=1 
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2690 


C: SB 1542= 


--1 


2695 


U: *CP 




2700 


U:*0PCAB 




2705 


J: *0K 




2710 


*CAB2 




2715 


J OB 1563= 


= 1) 


2720 


C:S)B1563= 


= 1 


2725 


C:5>B1544= 


=8 


2730 


C: SB 1545= 


=8 


2735 


U:*CP 




2740 


U: *0PCAB 




2745 


J:*0K 




2750 


*CAB3 




2755 


J OB 1570= 


= 1) 


2760 


C:5)B1570= 


= 1 


2765 


C:5)B1553= 


=35 


2770 


U: *MCP 




2775 


U:*0PCAB 




2780 


J : *DK 





*ALREADY0PEN 



*ALREADY0PEN 



When a cabinet is opened, the program changes the string value 
from CABINET to OPEN CABINET. 



2985 *0PCAB 
2990 C:*DBJECT= 
2995 E: 



OPENSOBJECT 



To open the fusebox: 

2785 *FUSEB0P 

2790 J (#R< >5> : tNOTHERE 

2795 J0B1555O5) : tNOTHERE 

2800 J (#R=5) : *L00K 

2805 J: *0K 

To open the bookcase: 



2810 tBOOKCOP 

2815 J (#R<>7) : *NOTHERE 

2820 J OB1562=l) : tALREADYOPEN 

2825 C:5)B 1562=1 
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2830 U:*B00KCPIC 
2835 C:#S=11 
2840 J:*0K 

To open the door (again, the room the player is in must be checked 
as there are 5 locked or jammed doors in the adventure): 

2845 *DQOP 

2850 A:=*ROOM 

2855 M:M4 ,18 ,19 ,20 ,34 , 

2860 JM:*D4,*D18,*D19,*D20, *D34 

2865 J : *0K 

2870 *D4 

2875 J0B1559O1) : *ME1 

2880 J: tALREADYOPEN 

2885 *D18 

2890 J OB154BO0) : *ME2 

2895 C:#S=21 

2900 C:3B 1566=1 

2905 J : *0K 

2910 *D19 

2915 JOB1547O0) : *ME3 

2920 C:#S=22 

2925 C: SB 1564=1 

2930 J:*OK 

2935 *D20 

2940 JOB1546O0) :*ME4 

2945 C:#N=17 

2950 C:5>B 1565=1 

2955 J:*OK 

2960 *D34 

2965 JOB1554O0) r *ME5 

2970 C:#N=30 

2975 C:5>B 1569=1 

2980 J : *0K 

Various messages help the player find what is needed to open 
a door: 

3000 *ME1 

3005 T: [esc shift clear U ELECTRICITY IB 

NEEDED FOR THAT! ! 
3010 J: *WAIT 
3015 *ME2 
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3020 T: [esc shift clearUYOU NEED THE B 

LUE KEY! ! 

3025 J: *WAIT 

3030 *ME3 

3035 T:[esc shift clearDIT'S STUCK!! 

3040 J:*WAIT 

3045 *ME4 

3050 T: [esc shift clearUYOU NEED THE B 

ROWN KEY! ! 

3055 J:*WAIT 

3060 *ME5 

3065 T:Cesc shift clear] YOU NEED THE R 

ED KEY ! ! 

3070 J:*WAIT 

All other doors are already open. 

3075 *ALREADYOPEN 

3080 T:Cesc shift clearUIT'S ALREADY 

PEN! ! 

3085 J:*WAIT 

Routines for the words LOOK and EXAMINE: 

3505 *LOOK 

35 1 C ( #R=20 ) : S)B 1 549=#R 

3515 J(#R=20) :*0K 

3520 T(#R=5> : [esc shift clear] THERE AR 

E FUSES MISSING! ! 

3525 J(#R=5) :*WAIT 

3530 T: [esc shift clearHI SEE NOTHING 

SPECIAL! ! 

3535 J: *WAIT 

The routines for the word GO: 

Note: The program checks for valid places to which the player 
can go. 

3540 *G0 

3545 M:CHI,FIR,SHA,G0R,D0G,CHU 

3550 JM: tGOFIR, *G0FIR, tGOSHA, *G0G0R, *G 

0D0G,*G0CHU 

3555 J:*CANTG0 
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To go into the fireplace. 

3560 *GOFIR 

3565 A:=$ROOM 

3570 M:26 ,32 , 

3575 JN:»NOTHERE 

3580 JOB1567<>l):*DEAD5 

3585 C ( #R=26 ) : #R=25 

3590 C ( #R=32 ) : #R=3 1 

3595 J:*CR 

To go to the gorilla: 

3600 *BOGOR 

3605 J (#R< >28) : *NOTHERE 
3610 J0B1568O1) :*DEAD2 
3615 J:*OK 

To go to the dog: 

3620 *GODOG 

3625 J (#R< >9) : tNOTHERE 
3630 JOB1557=0):*DEAD3 
3635 J:*NOTHERE 

To go into the laundry chute: 

3640 *GOCHU 

3645 J(#ROH):*ME7 

3650 C:#R=20 

3655 C:#F=#F-1 

3660 J:*CR 

To go into the elevator shaft: 

3665 *GOSHA 

3670 J (#R<>22) : *ME7 

3675 C:#R=27 

3680 J:*CR 

The routines for the words USE and INSERT: 

3175 *USE 

3180 M:FUS,DRU,KEY,CRO 
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3185 JM: tUSEFUS, *USEDRU, tUSEKEY, *USECR O 
3190 J: *CANTDO 

Player wants to use fuses: 

3195 *USEFUS 

3200 J ( S)B 1 542< >0 ) : tDONTHAVE 

3205 J(#R<>5) :*ME7 

3210 C:3B1559=1 

3215 C:S>B1542=100 

3220 T:Cesc shift clear IITHE LIGHTS COM 

E ON! ! 

3225 J:*WAIT 

To use the drugs: 

3230 tUSEDRU 

3235 J OB 1 553< >0 ) : tDONTHAVE 

3240 J OB1552O0) s *ME8 

3245 C:S)B1571 = 1 

3250 T:Cesc shift clear 3 THE DRUGS ARE 

IN THE BANANA! ! 

3255 J:*WAIT 

To use the key: 

3260 *USEKEY 
3265 JOB1546=0) :*0K 
3270 J (S>B1548=0> : *OK 
3275 JOB1554=0) :*0K 
3280 J: *DONTHAVE 

To use the crowbar: 

3285 tUSECRO 

3290 J OB1547O0) : tDONTHAVE 

3295 J(#R<>19) :*ME7 

3300 C:S>B 1564=1 

3305 J:*OK 

Various other messages help the player through the adventure: 

3310 *ME7 

3315 T:Cesc shift clearlYOU CANT DO TH 
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AT HERE ! ! 

3320 J:*WAIT 

3325 *ME8 

3330 T:Cesc shift clearHIN WHAT!! 

3335 J:tWAIT 

3340 *CANTD0 

3345 T:Cesc shift clearlYOU CAN'T DO T 

HAT! ! 

3350 J:*WAIT 

The routine for the word LIGHT: 



CAN'T LIGHT 



3120 


*LIGHT 




3125 


M:FLA 




3130 


TNsCesc shift 


clear: I Ci 


THAT ! ! ! 




3135 


JN: tWAIT 




3140 


JOB1541O0) = 


*DONTHAVE 


3145 


J(5)B155B=1> :*LIT 


3150 


C:S>B1558=1 




3155 


J:*OK 




3160 


*LIT 




3165 


T: [esc shift 


clear]IT'S 


IT! ! 






3170 


JstWAIT 





ALREADY L 



The routine for the word PUSH: 

3355 *PUSH 

3360 M:BOOKC,GOR 

3365 JM:*BOOKCOP,*PUSHGO 

3370 TzCesc shift clearHTHAT DOESN'T H 

ELP! ! 

3375 J:*WAIT 

3380 *PUSHGO 

3385 J (#R< >28) : *NOTHERE 

3390 J:*DEAD2 

The routine for the word INVENTORY: 

Nofe: To display a picture of the items the player is carrying, use 
the same graphic routines that drew the items in the rooms. 
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1510 * INVENTORY 

1515 C:*ITEMS= NOTHING 

1520 C:#I=0 

1525 C:#M=1541 

1530 C:#X=-16 

1535 C:#Y=8 



Clear the picture of the room and draw the pictures of the items 
in the inventory. 



1540 


GR: CLEAR 


1545 


J: *INV2 


1550 


*INV2 


1 JJJ 


U OB#M=0) : tVISIBLE 


1560 


C:#M=#M+1 


1 565 


J(#M<1557) :*INV2 



Then print the item names, and if the player is wearing the 
gloves, print that also. 

1570 T: [esc shift c 1 ear U * I TEMS 
1 575 T ( SB 1 549=50 ) : WEAR I N6 GLOVES 
1580 J: *PRESSKEY 
1585 JVISIBLE 

The Presskey routine is needed for above. 

Note: The routine will only respond if the space bar is pressed. 
The program will continue to loop until it finds the internal key- 
board code 33 stored in memory location 764. This memory lo- 
cation always retains the internal code of the last key pressed. 
The internal code of the space bar is 33. (See Appendix B for 
internal code of each key.) 

3685 *PRESSKEY 

3690 T: [inverse/4 spaces3PRESS SPACE B 

AR TO CONTINUEC4 spaces/inverse off]\ 

3695 C:S>B764=255 

3700 *L00P2 

3705 J <S)B764=33) : *CR 

3710 J: *L00P2 
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The routine for the word THROW: 

3395 *THROW 

3400 M: BAN, WAT, BIS, BON 

3405 JM: *THRBAN, tTHRWAT, tTHRBIS, *THRBO 

N 

3410 T: [esc shift clearDWHY DO YOU WAN 

T TO THROW THAT! ! 

3415 J:*WAIT 

To throw the banana: 

3420 *THRBAN 

3425 J (S)B1552< >0) : JDONTHAVE 

3430 C:3B1552=#R 

3435 J(#R=28) : tBANGOR 

3440 J:*OK 

3445 *BANGOR 

If the banana is thrown in the correct room, the gorilla will eat 
it. 

3450 T:Cesc shift clearDTHE GORILLA EA 

TS THE BANANA! ! 

3455 C:S>B 1552= 100 

3460 JOB1571 = l) :*SLEEP 

3465 J:*WAIT 

If the drugs are inserted into the banana, the gorilla will fall 
asleep after eating it. 

3470 *SLEEP 

3475 C:S)B 1568=1 

3480 U: tGORILLAPIC 

3485 C:#E=29 

3490 C:*OBJECT= SLEEPING GORILLA 

3495 C:3B1552=100 

3500 J:*P 

Other items that can be thrown: 
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Water 

3715 *THRWAT 

3717 J OB 1567=1 ) : tALREADYOUT 

3718 JOB155000) : *ME6 
3720 C:5)B 1550=23 

3725 J (#R< >26) : *0K 

3730 C:S)B 1567=1 

3735 C:*0BJECT= FIREPLACE 

3740 U:*FIREPIC 

3745 J:*0K 

Biscuits 

3750 *THRBIS 

3755 J OB1544< >0) : tDONTHAVE 

3760 C:S>B1544=#R 

3765 J(#R<>9) :*0K 

3770 T: [esc shi-ft clear! THE DOG EATS T 

HE BISCUIT! ! 

3775 C:5>B 1544=8 

3780 J:*WAIT 



Bone 

3785 
3790 
3795 
3800 
3805 
3810 
3815 
3820 

TO 

3825 C:*OBJECT= NOTHING 
3830 U:*DOGPIC 
3835 J:*WAIT 



tTHRBON 

J OB1545< >0) : *DONTHAVE 
C:S)B1545=#R 
J(#R<>9) : *0K 
C:S)B1557=1 
C:#W=7 

C:5>B 1545= 100 

T: [esc shift clear] THE DOG LEAVES 
BURY THE BONE! ! 



Fire already out: 
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3090 *ALREADYOUT 

3095 T:Cesc shift clearDIT'S ALREADY 

UT! ! 

3100 J:*WAIT 

Water is needed: 

3105 *ME6 

3110 T: [esc shift clear]Y0U NEED SOME 

WATER ! ! 

3115 J:*WAIT 

The routine for the word WEAR: 

3840 *WEAR 

3845 M:GL0 

3850 TN: Cesc shift clearDI CAN'T WEAR 

THAT ! ! ! 

3855 JN:*WAIT 

3860 JOB1549O0) : *D0NTHAVE 

When the gloves are worn, the program sets the value of the 
memory location which holds their status to 50. 

3865 C:3B 1549=50 
3870 J:*OK 

There are many ways for the player to get 'clobbered.' When he 
does, the program comes here: 

5720 *DEAD1 

5725 T:Cesc shift c 1 ear D YOUR HANDS SLI 

P AND YOU FALL! ! 

5730 C:#P=31 

5735 *REPEAT 

5740 S0:#P 

5745 C:#P=#P-1 

5750 J (#P<>0) :*REPEAT 

5755 J:*DEATHMARCH 

5760 *DEAD2 
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576 
ARS 
5770 
5775 
5780 
S 1 ! ! 
5785 
5805 
5810 
ALI 
5815 



T: [esc shift clear]THE GORILLA TE 
YOU LIMB FROM LIMB! ! ! 
J: tDEATHMARCH 
*DEAD3 
T:Cesc shift clear : THE DOG ATTACK 

J: *DEATHMARCH 
*DEAD5 

T:[esc shift clearDYOU ARE COOKED 
VE! ! ! 
J:*DEATHMARCH 



There is only one way to win — reach room 50. 



6075 *WIN 

6080 GR:QUIT 

6085 C:S)B1373=16 CTEXT WINDOW 

6090 C:S>B1374=2 

6095 WRITE: S, 

6100 P0S:3,4 

6105 WRITE:S,you escaped! 

6110 C:#P=0 

6115 S0:20 

6120 PA: 2 

6125 U: *PAUSE 

6130 SO: 22 

6135 PA:2 

6140 U: *PAUSE 

6145 SO: 24 

6150 PA: 2 

6155 U:*PAUSE 

6160 SO: 26 

6165 PA: 16 

6170 U:*PAUSE 

6175 SO: 22 

6180 PA:2 

6185 U:*PAUSE 

6190 SO: 26 

6195 PA: 32 

6200 S0:0 

6205 WRITE: S, 

6210 WRITErS, 

6215 CLOSE: S 



CONGRATULATIONS ! 
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6220 J:*PLAYA6AIN 

The ESCAPE program is now complete. Be sure to save a copy 
onto tape with CSAVE , or onto disk with SAVE "D:filename." 



A GRAPHIC ADVENTURE IN 
ATARI MICROSOFT BASIC 
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Atari Microsoft BASIC has been greatly expanded from standard 
Microsoft BASIC to allow easy access to the Atari graphics ca- 
pabilities. For example, player-missile graphics in Atari BASIC 
are not easily utilized because strings must be allocated to hold 
player-missile data and special routines used to access this in- 
formation. Atari Microsoft BASIC has special features which al- 
low easy reservation of memory for alternate character sets and 
player-missile graphics. With the simple command OPTION PLM1 
you can reserve 1280 bytes in memory for player-missile graph- 
ics. OPTION CHR1 reserves 1024 bytes in memory for alternate 
character data. Also, very little effort is required by the pro- 
grammer to move player-missile graphics in memory. This is 
accomplished with the use of the keyword MOVE, which greatly 
simplifies the vertical movement of player-missile graphics, usu- 
ally a very slow process for Atari BASIC. These features are 
utilized in The Hunter program to help you understand them. 
The Hunter requires 32K when loaded from disk or cassette. 

THE OBJECTIVE 

To search the dungeon's 16 rooms and locate the magic key which 
will reveal the hidden location of the crown. Only after the magic 
key is found will the crown be visible. However, if you allow an 
evil robot to touch the key or crown, he will steal it and place it 
in another room, forcing you to begin your search again. 
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THE FLOWCHART 




Set level 
of play 



Create 

player-missile 

graphics 



o 



Display room 



^D 



Read joystick 




THE HUNTER 153 
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Erase key 

Place in 
another room 



Create crown 

Place in room 
chosen randomly 
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THE PROGRAM 

First, set up graphics modes and jump to subroutines to display 
the title and initialize variables. 

10 GRAPHICS 2+16:G0SUB 1140:G0SUB 840 

Display the title. 

1140 PRINT#6,AT<4,3) ; " [inverse] the nun 
ter":PRINT#6,AT<3,5) ; "[inverse]BY JACK 
HARDY" 

Create a string to hold the names of various levels of play. 

1150 LEL=1:LEVEL*=" NOVICE PILOT 
SERGEANT CAPTAIN COMMANDER" 

Create special strings to be used later to clear pathways through 
the dungeon. 

1160 DIM PASS*<4) 

1170 PASS* (1)=" [20 Ctrl M' sDZZZZZZZZZ 

ZZZZZZZZZZZC20 ctrl N'sD" 

1180 PASS* (2)=" Cctrl VDZZCctrl B]":PAS 

S*(3)="Cctrl LUZZCctrl K3 " : PASS* (4) =" [ 

ctrl ODZZCctrl 13" 

Set a string to handle the room numbers (Roman Numerals). 

Note: The numbers are printed using lower case in Graphics 
mode 2, set to be used to display special characters unavailable 
by using a normal Graphics mode 2. There are two character 
sets for modes 1 and 2. The standard character set contains the 
usual upper-case letters, numbers, and punctuation. For this pro- 
gram, the alternate character set which contains special graph- 
ics characters and lower-case letters is used. To see the effects 
of this, type in direct mode GRAPHICS 2:POKE 756,226, hit RE- 
TURN and there will be a screen full of hearts. The program uses 
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this feature and redefines the heart character into bricks. The Z's 
in the string will later be changed to a graphics character equal 
to the space character and will be used by the program to open 
pathways through the bricks. 

1190 RM*="iZZZiiZZiiiZivZZvZZZviZZviiZ 
viiiixZZxZZZxiZZxiiZxiii xi vZx vZZxvi Z" 

Set variables and place the treasures in their locations. 

1200 R00M=1 

1210 RANDOM I Z E : CROWN=RND (16): KE Y=RND ( 1 

6): IF CROWN=KEY THEN 1210 

Some music: 

1220 FOR J=10 TO O STEP -1:F0R Jl=20 T 
O O STEP -2: SOUND O, J 1 , 10, J: NEXT Jl 
1230 FOR Jl=120 TO 90 STEP -2: SOUND 1, 
J, 10, J:NEXT J1:NEXT J 

Redesign the character set. 

Note: By using OPTION CHR2, space is reserved in memory for 
the storage of the new character set (e.g., bricks-space). Then it 
is necessary to move only the lower-case and special graphic 
characters into the reserved memory, since these are the ones 
that need to be redefined. 

1240 CHBAS=756: OPTION CHR2: ADDR7.=VARPT 

R (CHR2) : PAGE7.= (ADDR7./256) AND 255 

1250 MOVE 57856, ADDR7., 512: RESTORE 1390 

Change the heart character into a set of bricks. 

1260 OF=0*8:F0R 1=0 TO 7: READ CH:POKE 

ADDR7.+0F+I , CH: NEXT 

1390 DATA 251,251,251,0,223,223,223,0 
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Change the graphic character produced by using ctrl C into a 
large J -shaped character to be used later in forming the corner 
of a passage. 

1270 0F=3*8:F0R 1=0 TO 7: READ CH:POKE 

ADDR7.+0F+I,CH:NEXT 

1400 DATA 3,3,3,3,3,3,255,255 

Change the graphic character produced by using ctrl E into a 
large ~\ -shaped corner. 

1280 DF=5*8:F0R 1=0 TO 7: READ CH:POKE 

ADDR-/.+OF+I , CH: NEXT 

1410 DATA 255,255,3,3,3,3,3,3 

Change the graphic character produced by using ctrl I into a 
lower right corner square. 

1290 0F=9*8:F0R 1=0 TO 7: READ CH:P0KE 

ADDR7.+0F+I,CH:NEXT 

1420 DATA 0,0,0,0,0,0,3,3 

Change the graphic character produced by using ctrl K into upper 
right and ctrl L character into upper left corner squares. 

1300 0F=11*8:F0R 1=0 TO 15: READ CHcPOK 

E ADDR7.+0F+I,CH:NEXT 

1430 DATA 3,3,0,0,0,0,0,0,192,192,0,0, 

0,0,0,0 

Change the graphic character produced by using Ctrl O into lower 
left corner square. 

1310 0F=15*8:F0R 1=0 TO 7: READ CH:POKE 

ADDR7.+0F+I,CH:NEXT 
1440 DATA 0,0,0,0,0,0,192,192 

Change the graphic character produced by using ctrl Q into large 
T -shaped corner. 
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1320 0F=17*8:F0R 1=0 TO 7: READ CHsPOKE 

ADDR7.+0F+ 1 , CH: NEXT 
1450 DATA 255,255,192,192,192,192,192, 
192 

Change the graphic character produced by using Ctrl Z into large 
L-shaped corner. 

1330 OF=26*8:FOR 1=0 TO 7: READ CH:POKE 

ADDR7.+0F+I , CH: NEXT 
1460 DATA 192,192,192,192,192,192,255, 
255 

Change lower-case i into capital I for use in the Roman numeral. 
{Note: Since the graphic mode used will not display capital let- 
ters, the lower-case letter used must be changed into upper case 
for display.) 

1340 0F=41*8:F0R 1=0 TO 7: READ CHzPOKE 

ADDR7.+0F+I , CH: NEXT 
1470 DATA 0,126,24,24,24,24,126,0 

Change lower-case r to upper-case R. 

1350 0F=50*8:F0R 1=0 TO 7: READ CHiPOKE 

ADDR7.+0F+I , CH: NEXT 
1480 DATA 0,124,102,102,124,108,102,0 

Change lower-case v to upper-case V. 

1360 0F=54*8:F0R 1=0 TO 7 .-READ CH:POKE 

ADDR7.+0F+I , CH: NEXT 
1490 DATA 0,102,102,102,102,60,24,0 

Change lower-case x to upper-case X. 



1370 OF=56*8:FOR 1=0 TO 7: READ CH:POKE 

ADDR7.+0F+I , CH: NEXT 
1500 DATA 0,102,102,60,60,102,102,0 
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Finally, the lower-case z is erased to be used as the blank 
character. 

1380 0F=58*8:F0R 1=0 TO 7: READ CH:POKE 

ADDR7.+0F+I , CH: NEXT 
1510 DATA 0,0,0,0,0,0,0,0 

Let player select level he wishes to play. 

1520 PRINT#6,AT(4,8) ; "select LEVEL": PR 

INT#6,AT(4, 11) ; "start TO PLAY"; 

1530 PRINT#6, AT (5, 9) ; MID* (LEVEL*, LEL*9 

-8,9) :AM0=36-(LEL*4) 

1540 IF PEEK (53279) =6 THEN 1570 

1550 IF PEEK (53279) =5 THEN LEL=LEL+1:S 

OUND O, 150, 10, 10, 10: IF LEL>5 THEN LEL= 

1 

1560 FOR J=l TO 100: NEXT: GOTO 1530 

Set beginning position of the Hunter Robot. Reserve memory for 
double-line player-missile graphic character resolution. Tell the 
computer that the program is using double-line resolution by 
POKing a 46 into location 559. (POKE with a 62 for single-line 
resolution.) Turn on player-missile graphics by POKing a 3 into 
53277 (&D01D hex). Set horizontal position. Double the width of 
player and missile by POKing a 1 into locations 53256 (&D008 
hex) and 53260 (&D00C hex). Set priority over playfields. Set color 
of hunter. 

1570 X=120:Y=82 

1580 OPTION PLM2:P0KE 559, 46: POKE &D00 

C, Is POKE &D01D,3:P0KE &D000, X: POKE &D0 

08, 1 SPOKE &26F, 1 

1590 SETCOLOR 0,9,8 



The program goes to 1610 to define the Hunter Robot, returns, 
points to the alternate graphics mode 2 character set, and clears 
the screen. 
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1600 GOSUB 1610: POKE CHBAS,PAGE7.: PRINT 
#6,"[esc ctrl cl ear] ": RETURN 

Design the shape of the Hunter Robot. 

1610 RESTORE 1630: FOR J=VARPTR (PLM2) +1 
28+ Y TO VARPTR(PLM2)+137+Y:READ CH:P0K 
E J,CH 
1620 NEXT J 

The shape table of the Hunter Robot: 

1630 DATA 0,16,16,16,56,40,124,254,56, 



1640 POKE &D01D, 3: RETURN 

Find initial room and jump to proper graphics display. 

840 ON ROOM GOSUB 870,1030,970,900,103 
0, 970, 900, 870, 970, 900, 870, 1030, 900, 870 
, 1030,970 

The routines to print the shapes of the rooms: 
Shape of rooms #1, #8, #11, #14: 

870 PRINT #6, AT (0,4) ; PASS* ( 1 ) ; 

880 FOR CL=0 TO 3: PRINT #6, AT (8, CL) ; PA 

SS*<2> :NEXT:PRINT#6, AT(8,4) ;PASS*<3> 

890 PRINT#6, AT (8, 6) ; PASS* (4) : FOR CL=7 

TO 11:PRINT#6,AT(8,CL) ; PASS* (2) ; :NEXT: 

RETURN 

Shape of rooms #4, #7, #10, #13: 

900 FOR CL=0 TO 1 1 : PRINT#6, AT (8, CL) ; PA 
SS*(2) :NEXT 
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910 PRINT#6,AT(0,4) ; PASS* ( 1 ) 
920 PRINT#6, AT (4, 1) ; " Cctrl Q/3 ctrl M' 
s/ctrl LIZZCctrl K/3 ctrl M's/ctrl El" 
:F0R CL=2 TO 3: PRINT#6, AT (4, CD ; " Cctrl 

VIZZZZZZZZZZCctrl B]":NEXT 
930 PRINT#6, AT<4,4) ; "Cctrl LHZZC6 ctrl 

N'slZZCctrl Kl " : PRINT#6, AT (4, 5) ; "ZZZ 
ZZZ" :PRINT#6,AT<4,6) ; "Cctrl 01ZZC 
6 ctrl M'slZZCctrl II" 

940 FOR CL=7 TO 8: PRINT#6, AT (4, CD ; " Cc 
trl VlZZZZZZZZZZCctrl B]":NEXT 
950 PRINT#6,AT<4,9) ; "Cctrl Z/3 ctrl N> 
s/ctrl OJZZCctrl 1/3 ctrl N's/ctrl CI" 
960 RETURN 

Shape of rooms #3, #6, #9, #16: 

970 PRINT#6,AT<0,4) ; PASS* ( 1 ) : FOR CL=0 
TO 2:FRINT#6,AT(8,CD ; PASS* (2) : PRINT#6 
,AT(8,CL+9) ; PASS* (2) ; : NEXT 
980 PRINT#6,AT<3,2) ; "Cctrl Q/4 ctrl M' 
s/ctrl LIZZCctrl K/4 ctrl M's/ctrl E3" 
990 PRINT#6, AT(3,3) ; "Cctrl V3ZZZZZZZZZ 
ZZZCctrl BU" 

1000 PRINT#6,AT(3,4) ; "Cctrl L3ZZZZZZZZ 
ZZZZ Cctrl KH" :PRINT#6,AT<3,5> ;"ZZZZZZZ 
ZZZZZZZ":PRINT#6,AT(3,6) ; "Cctrl 0] ZZZZ 
ZZZZZZZZCctrl 13" 

1010 FOR CL=7 TO 8: PRINT#6, AT (3, CD ; " C 
ctrl VIZZZZZZZZZZZZCctrl B3":NEXT 
1020 PRINT#6,AT(3,9) ; "Cctrl Z/4 ctrl N 
's/ctrl ODZZCctrl 1/4 ctrl N's/ctrl C3 
" : RETURN 

Shape of rooms #2, #5, #12, #15: 

1030 FOR CL=0 TO 1 1 : PRINT#6, AT (8, CD ; P 
ASS* (2) ; :NEXT 

1040 PRINT#6, AT (0,4) ; PASS* ( 1 ) :PRINT#6, 
AT(3,7) ; "Cctrl VIZZZZZZZZZZZZCctrl Bl" 
:PRINT#6, AT(3,8) ; "Cctrl Z/4 ctrl N's/c 
trl OlZZCctrl 1/4 ctrl N's/ctrl CI" 
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1050 PRINT#6,AT<5,4) ; "Cctrl E/2 spaces 
/ctrl V3ZZCctrl B/2 spaces/ctrl Q1":PR 
INT#6,AT(5,5) ; "Cctrl B/2 spaces/ctrl V 
HZZCctrl B/2 spaces/ctrl VD" 
1060 PRINT#6,AT(3,6) ; "Cctrl OUZCctrl K 
/2 ctrl M's/ctrl LIZZCctrl K/2 ctrl M* 
s/ctrl LIZCctrl I ] " 
1070 RETURN 

After printing the rooms, the program returns to line 850, where 
it prints the room number. 

850 PRINT#6,AT<0, 10) ; " C i n verse] room" : P 
RINT#6, AT (0,11) ; MID* (RM*, R00M*4-3, 4) ; 
B60 RETURN 

Here the main loop begins. First, set the value of S from the 
joystick. Second, reset collision register and, finally, check to see 
if the joystick button has been pressed. 

20 S=PEEK(&278) : POKE &D01E,0:IF PEEK<& 
D010)=0 THEN 290 



Check for Key, Crown, and Monster in this room. 

30 IF KEY=R00M THEN GOSUB 650 

40 IF CR0WN=R0QM AND KEY=0 THEN GOSUB 

680 

50 IF MON THEN GOSUB 200 

Check for collision with wall or Monster. 

60 IF PEEK(&D004)=3 THEN 1650 
70 IF PEEK(&D00E)=1 THEN 1650 

Compare S (Joystick value) to see if it is set to a value other than 
the center. 

80 IF S=15 THEN 20 
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If other than the center, find the new value 

90 CX=(S=9 OR S=10 OR S=11)-(B=5 OR S= 
6 OR S=7) 

100 CY=(S=6 OR S=10 OR S=14)-(S=5 OR S 
=9 OR S=13) 

and move accordingly. 

110 X=X+CX*3:P0KE &DOOO,X 
120 IF CY=+1 THEN MOVE VARPTR (PLM2) +12 
8+ ( Y-2) , VARPTR (PLM2) +128+Y, 12s Y=Y+2 
130 IF CY=-1 THEN MOVE VARPTR (PLM2) +12 
8+ Y , VARPTR < PLM2 ) + 1 28+ ( Y-2 ) , 1 2 : Y=Y-2 

Check to see if Hunter Robot left the screen. 

140 IF X>200 THEN X=44: GOSUB 250: PRINT 

#6, AT (0,0) ; "[esc Ctrl cl ear D ": POKE &D0 

00,X:GOSUB 720 

150 IF X<44 THEN X =200: GOSUB 250: PRINT 

#6,AT(0,0) ; "[esc ctrl c 1 earl " : POKE &D0 

00,X:GOSUB 740 

160 IF Y>106 THEN GOSUB 190:G0SUB 250: 

PRINT#6, AT(0,0) ; "[esc ctrl clear] ": Y=l 

2: GOSUB 780: GOS 

UB 1610 

170 IF Y<12 THEN GOSUB 190: GOSUB 250: P 

RINT#6, AT(0,0) ; "Cesc ctrl clear!": Y=10 

6: GOSUB 760: GOS 

UB 1610 

If not, send the program back to the main loop. 

180 GOTO 20 

Joystick button pushed: 

If no direction, return to main loop. 
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290 IF PEEK<&278>=15 THEN 50 

If direction, subtract ammo, sound on, set bullet location (BX and 
BY). 

300 AM0=AM0-1:IF AMO< 1 THEN BOUND 0,10 

, 10, 10,2:B0T0 50 

310 SOUND 0, 100,6, 10, 5:BX=X:BY=Y 

Find direction in which joystick was pushed, which is the way 
the bullet will travel, and jump to proper routine. 

320 IF PEEK<&278)=14 THEN 420 

330 IF PEEK(&278)=11 THEN 540 

340 IF PEEK(Sc278)=13 OR PEEK<&278)=9 O 

R PEEK(&278)=5 THEN 480 

Joystick pushed to the right (bullet will travel to the right): 



350 BX=BX+6 

360 POKE VARPTR(PLM2)+4+BY,3 

370 POKE &D004,BX 

380 BX=BX+4 

390 IF PEEK<&D000X>O THEN 640 

400 IF PEEK(&D008> >1 THEN 610 

410 IF BX>240 THEN POKE VARPTR (PLM2) +4 

+BY,0:BOTO 20 ELSE 370 

Joystick pushed forward (bullet will travel up the screen): 

420 POKE VARPTR(PLM2)+4+BY, 1 

430 POKE &D004,BX+4 

440 MOVE VARPTR(PLM2)+4+BY,VARPTR<PLM2 

) +4+ (BY-4) ,8: BY=BY-4 

450 IF PEEK(&DO00K>O THEN 640 

460 IF PEEK(&DOOS) >1 THEN 610 

470 IF BY<15 THEN POKE VARPTR (PLM2) +4+ 

BY,0:BOTO 20 ELSE 440 
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Joystick pulled back (bullet will travel down the screen): 

480 POKE VARPTR (PLM2>+4+BY, 1 

490 POKE &D004,BX+4 

500 MOVE VARPTR (PLM2) +4+ (BY-4) , VARPTR < 

PLM2) +4+BY, 8: BY=BY+4 

510 IF PEEK(&DOOO)<>0 THEN 640 

520 IF FEEK(&D008) >1 THEN 610 

530 IF BY > 124 THEN POKE VARPTR (PLM2) +4 

+BY,0:GOTO 20 ELSE 500 

Joystick pushed to the left (bullet will travel to the left): 

540 POKE VARPTR <PLM2)+4+BY, 3 

550 POKE VARPTR (PLM2)+4+Y, 3 

560 POKE SdD004,BX 

570 BX=BX-4 

580 IF PEEK<&DOOO)<>0 THEN 640 

590 IF PEEK(&D008) >1 THEN 610 

600 IF BX<44 THEN POKE VARPTR <PLM2> +4+ 

BY,0:GOTO 20 ELSE 560 

If Evil Robot was hit by a Missile, turn off the Missile, change 
color of the Robot, create the appropriate sound, erase shape 
table of Evil Robot, and set variable (MON) to zero. 

610 POKE VARPTR (PLM2) +4+BY, 

620 FOR CL=12 TO O STEP -1:SETC0L0R 2, 

4, CL: SOUND 0, 20*CL, 6, 8: FOR T=l TO 10: N 

EXT T:NEXT CL:SOUND 0,0,0,0 

630 FOR J=VARPTR(PLM2)+384+RY TO VARPT 

R (PLM2) +392+RY: POKE J, O: NEXT: MON=0: GOT 

O 20 

If Evil Robot was not hit, turn off the Missile. 

640 POKE VARPTR (PLM2) +4+BY, O: GOTO 20 

If the Key is in the room, the program checks to see if the Evil 
Robots or the Hunter Robot have touched it. 
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650 IF PEEK(fcDOOD) >1 THEN GOBUB 710: KE 

Y=RND(16) 

660 IF PEEK(&D00D)=1 THEN GOSUB 710: KE 

Y=0 

670 RETURN 

If the Crown is in room, the program checks to see if the Evil 
Robots or the Hunter Robot have touched it. 

680 IF PEEK(&DOOD) >1 THEN GOSUB 710: CR 

0WN=RND(16) 

690 IF PEEK(&D00D)=1 THEN GOTO 1830 

700 RETURN 

If either the Key or the Crown is touched, the program clears the 
shape table to have it disappear. 

710 SOUND 0,200, 10,8, 10:F0R J=VARPTR(P 
LM2)+256+TY TO VARPTR (PLM2) +256+CS+TY: 
POKE J, O: NEXT: RETURN 

When the Hunter Robot touches the Crown, the mission is ac- 
complished (a win) and the program comes here: 

1830 PRINT#6, " [esc ctrl c 1 ear 1 " : POKE C 

HBAS,224:PRINT#6,AT(2,3) ; "congratulati 

ons":PRINT#6, AT(9,4) "a" 

1840 PRINT#6,AT(1,5) ; " Hi nverseHSUCCESS 

FUL MISSION" 

1850 FOR J=15 TO STEP -0.5: FOR J 1 = 10 

TO 19:S0UND 0, J 1 , 2, J : SOUND 1,J1*5,10, 
J: NEXT J1:NEXT J 

1860 FOR J=l TO 500: NEXT: GOSUB 710 
1870 PRINT#6,AT(0, 10) ; "PRESS start TO 

play" : IF PEEK (53279) =6 THEN GOSUB 190 
:RUN 

1880 FOR J=l TO 250: NEXT: PRINT#6, AT (6, 
10) ; " Ci nverseloptionCinverse o-ffl TO C 
inverse]quit":IF PEEK (53279) =3 THEN EN 
D 
1890 FOR J=l TO 250: NEXT: GOTO 1870 
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If the Evil Robot is in the room, move it. 

200 IF X>RX THEN RX=RX+1 
210 IF X<RX THEN RX=RX-1 

220 IF Y<RY THEN MOVE VARPTR (PLM2) +384 
+RY, VARPTR (PLM2) +384+ (RY-1 ) ,10: RY=RY-1 
230 IF Y>RY THEN MOVE VARPTR (PLM2) +384 
+(RY-1) , VARPTR <PLM2)+384+RY, 10:RY=RY+1 
240 POKE &D002,RX: SOUND 1 , 200,2, 4, 1 : RE 
TURN 

If the Hunter Robot gets "zapped," change its shape. 

1 650 RESTORE 1 720 : SETCOLOR 0,4,12: FOR 
J=VARPTR(PLM2)+128+Y TO VARPTR (PLM2) +1 
37+Y:READ CH:POKE J,CH:NEXT 
1720 DATA 0,16,0,16,0,40,124,0,56,0 

Then change its color and create sound effects. 

1660 FOR CL=12 TO O STEP -1: SETCOLOR 
,4,CL:S0UND 0, 20*CL, 6, 8: FOR T=l TO 10: 
NEXT T:NEXT CL: SOUND 0,0,0,0 

Clear player-missile graphics images of the Hunter Robot and 
the other robot. 

1670 FOR J=VARPTR(PLM2)+128+Y TO VARPT 

R (PLM2)+ 137+ Y: POKE J,0:NEXT:FOR TI=1 T 

200: NEXT 

1680 FOR J=VARPTR(PLM2)+384+RY TO VARP 

TR(PLM2)+392+RY:P0KE J, O: NEXT: POKE &D0 

1D,0 

Tell player he was "zapped" 



1690 GRAPHICS 2+16: PRINT#6, AT (2, 4) ; " YOU 
GOT ZAPPED ! ! " 
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and create sound effects. 

1700 FOR J = 15 TO O STEP -0.5: SOUND 0,6 
O, 12, J:SOUND 1 , 120, 12, J: SOUND 2,60,12, 
J:SOUND 3, 120, 12,J:NEXT 
1710 GOTO 1870 

In the routine above, the program is sent to line 1870 which gives 
the player an opportunity to play again. 

Subroutines to clear out shape table when Hunter Robot leaves 
room: 

Hunter Robot shape (only necessary when leaving room from top 
or bottom): 

190 FOR J=VARPTR(PLM2)+128+Y TO VARPTR 
(PLM2) + 137+ Y: POKE J, 0: NEXT: POKE &D01D, 
0: RETURN 

This routine clears other player-missile shapes when Hunter Ro- 
bot leaves a room. 

250 FOR J=VARPTR<PLM2)+384+RY TO VARPT 
R ( PLM2 ) +392+RY : POKE J , : NEXT : M0N=0 
260 IF R00M=KEY THEN FOR J=VARPTR (PLM2 
)+256+TY TO VARPTR (PLM2) +260+TY: POKE J 
,0:NEXT 

270 IF R00M=CR0WN AND KEY=0 THEN FOR J 
=VARPTR(PLM2)+256+TY TO VARPTR (PLM2) +2 
65+TY:P0KE J, 0: NEXT 
280 RETURN 

Subroutine to change variable ROOM when Hunter Robot reaches 
limits of screen area: 

720 IF R00M=16 THEN ROOM=l:GOTO 800 

730 R00M=R00M+1:G0T0 800 

740 IF R00M=1 THEN R00M=16:G0T0 800 
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750 ROOM=ROOM-l:SOTO 800 

760 IF ROOM <5 THEN R00M=R00M+12: GOTO 

800 

770 R00M=R00M-4:G0T0 800 

780 IF R00MM2 THEN R00M=R00M-12: GOTO 

BOO 

790 R00M=R00M+4:G0T0 800 

Reset screen color. Find X,Y location for next Evil Robot. 

80O POKE 77,0:RX=RND(140)+50:RY=RND(70 
)+40 

Jump to random Monster. 

810 M0NTYPE=RND<5) : ON MONTYPE GOSUB 17 
30, 1740, 1750, 1760, 1780 

Subroutines to create different Evil Robots (color, shape, and 
size): 

1730 SETCOLOR 2, 6, 8: RESTORE 1790: POKE 

&D00A,1:G0T0 1770 

1740 SETCOLOR 2, 4, 8: RESTORE 1800: POKE 

&D00A,1:G0T0 1770 

1750 SETCOLOR 2, 3, 8: RESTORE 1B10:P0KE 

&D00A,0:G0T0 1770 

1760 SETCOLOR 2, 5, 8: RESTORE 1820: POKE 

&D00A,3 

Actual routine to create Robot (chosen from above by RESTORE 
function, which restores a particular line of data and then jumps 
here to read in shape of Robot: 

1770 POKE &D002,RX:FOR J=VARPTR (PLM2) + 

384+RY TO VARPTR(PLM2)+392+RY:READ CH: 

POKE J,CH:NEXT:M0N=1 

17B0 RETURN 

1790 DATA 0,66,66,90,255,219,255,231,0 

1800 DATA 0,60,126,90,255,255,66,231,0 
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1810 DATA 0,60,126,90,255,255,195,0,0 
1820 DATA 0,60,36,60,24,255,60,102,0 

This routine returns here to see if the shape of the Key or the 
Crown is needed: 

820 IF KEY=ROOM THEN GOSUB 1080 
830 IF CR0WN=ROOM AND KEY=0 THEN GOSUB 
1110 

If so, create the shape: 

The Key 

1080 TX=120:TY=70:CS=4: RESTORE HOO:PO 

KE 8tD001,TX:P0KE &D009, 1 : SETCOLOR 1,12 

,8 

1090 FOR J=VARPTR(PLM2)+256+TY TO VARP 

TR(PLM2)+260+TY:READ CH:POKE J,CH:NEXT 

: RETURN 

1100 DATA 0,255,165,229,0 

The Crown 

1110 TX=1 14: TY=*70:CS=9: RESTORE 1130:PO 

KE &D001,TX:P0KE &D009, 3: SETCOLOR 1,1, 

8 

1120 FOR J=VARPTR(PLM2)+256+TY TO VARP 

TR(PLM2)+265+TY:READ CH:POKE J,CH:NEXT 

: RETURN 

1130 DATA 0,16,56,16,254,170,214,170,2 

54,0 

The program is now complete. Be sure to save a copy to tape 
with the CSAVE command or to disk with SAVE "D:filename." 
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Creating graphic displays with Atari BASIC has been made easy 
for the user by including many keywords in the language. Three 
of these are COLOR, PLOT, and DRAWTO. With these keywords 
the user can draw pictures in graphic modes 3 through 11. When 
using these modes, the screen is considered to be made of dots 
or blocks called pixels. The higher the graphic mode, the smaller 
the pixel. When a color has been assigned and the X, Y coordinate 
has been plotted, the pixel is lighted with that color. By using 
DRAWTO, a complete line of pixels can be lighted. Some really 
beautiful pictures can be drawn in the higher resolution modes 
(7-11). 

Time Crime illustrates some of the ways in which Atari BASIC 
can be used to create graphics for adventures, as well as for 
other uses. The program requires 16K when used with cassette 
or 24K with disk. 

THE OBJECTIVE 

To travel to other time zones and collect as much treasure as 
possible, while avoiding being eaten by one of the many crea- 
tures present. You can advance one step closer to the treasure 
by pressing the fire button, but you pay $50 for each step. Also, 
you can see if there is a creature (normally invisible) in your 
location by pressing the joystick handle and the fire button at 
the same time, for a price of $200. Of course, since you need 
money to use either of these features, you must first find treasure 
solely by searching for it. 

THE MAP 

The map of this adventure is a nine-room continuous dungeon 
similar to The Hunter adventure map. 
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Yes 



Draw man 
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Create new character 
set for zone 

Reset time 



Run program 
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Choose colors 
and landing area 



Display land 
(Ship if here) 







Turn on sound 
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THE PROGRAM 

Jump to initialization routine. 
10 GOSUB 3000 

First, the program prepares for the modified character set by 
fooling the computer into thinking it has less memory than it 
actually has. This is done by POKing a lower page number into 
memory location 106. Memory location 106 defines the upper limit 
of available memory. Five pages (256 byte blocks each) are being 
subtracted by the program. 

3000 POKE 106, PEEK (106) -5: GRAPHICS 18: 
START= (PEEK ( 106) +1 ) *256 

The program displays the title, dimensions the variables, creates 
the sound effects, and sets the variables. 

3010 POSITION 5,3:? #6; "TIME CRIME":PO 

SITION 9,5:? #6; "by" : POSITION 5,6:? #6 

; "JACK HARDY" 

3020 DIM L(9) , Z (9) , TX (9) ,TY(9) ,CX(9) ,C 

Y(9) :SET=0:LEVEL=1:HI=0 

3030 FOR TME=9 TO O STEP -1:F0R TIME=1 

TO 40: SOUND O, TIME, 10, TME: NEXT TIME 

3040 FOR TIME=60 TO 90:S0UND 1, TIME, 10 

, TME: NEXT TIME: NEXT TME 

These variables are loaded with the actual line numbers for Land 
[L(n)] and Zone [Z(n)] routines in the program. 

3060 L ( 1 ) =800: L (2) =840: L (3) =850: L (4) =8 

70: L (5) =890: L (6) =900: L (7) =930: L (8) =950 

:L(9)=955 

3070 Z ( 1 ) =2060: Z (2) =2090: Z (3) =2130: Z (4 

) =2160: Z (5) =2200: Z (6) =2240: Z (7) =2280: Z 

(8) =2320: Z (9)=2380 
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Shuffle the Zone routines so that the game is always different. 

3080 FOR SHU=9 TO 2 STEP -1 : NW=INT (RND 
(0) *SHU)+1:T=Z <NW) : Z (NW)=Z (SHU) : Z (SHU) 
=T:NEXT SHU 

Set Variables for man location (MX and MY) and ship location 
(SX and SY). 

3090 Z0NE=0: MX=9: MY=6: SX=MX : SY=MY: LOOT 
=0: IF SET=1 THEN 3180 

Add the machine language routine to move the character set from 
ROM into RAM (the area prepared for it with line 3000). This 
routine is exactly 38 characters long. If you have difficulty keying 
in the line, check Appendix A, program #6, line 3110 and you 
will be able to see the line as it should appear in the program. 

3099 REM ** X*=" Eh/inverse )/3/ctrl E/ 
K/ctrl E/M/) /ctrl period/ctrl E/N/7./in 
verse o-f-f/j/inverse X/inverse o-f-f/i/in 
verse A/ctrl E/l /space/3/ 1/M/ctrl Q/K/ 
H/P/y/-f/L/-f/N/y./N/I/d/P/m/inverse of-f/ 
ctrl period]" - a total of 38 characte 
rs. 

3110 DIM X*(38) :X*="h)a>EKEM) .EN7.jXiAEL 
S)lMQKHPyf L-FN7.NIdPm. " 

Jump to the machine language routine stored in X$ and move 
the character set. 

3120 Z=USR (ADR ( X*) ): RESTORE 3150 

Change the ! character to a man figure and the ] character to a 
time machine. 

3130 FOR TIME=1 TO 2: READ X 

3140 FOR Y=0 TO 7: READ Z:P0KE X+Y+STAR 
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T,Z:NEXT Y:NEXT TIME:SET=1 

3150 DATA 8,56,56,16,124,124,56,40,40 

3160 DATA 472,56,56,16,56,108,254,186, 

130 

Let player choose level of difficulty and when to start game. 

3180 POSITION 3,9:7 #6; " CinverseDSELEC 

TCinverse of-fD LEVEL - " ; LEVEL: POSITIO 

N 4,10:7 #6; " Hi nverseDstart [inverse of 

f] TO PLAY" 

3185 IF PEEK (53279) =6 THEN 3200 

3190 IF PEEK (53279) =5 THEN LEVEL=LEVEL 

+1: SOUND 0,30, 10,4: IF LEVEL>3 THEN LEV 

EL=1 

3192 MAXMIN=4-LEVEL:P0KE 710, INT (RND (0 

) *16)» 16+8: POKE 711, INT (RND (0) * 16) * 16+ 

8 

3195 FOR TM=1 TO 30: NEXT TM: SOUND 0,0, 

0,0: GOTO 3180 

3200 GOSUB 1010: RETURN 

When start is pressed, change graphics mode to 5+16 (no text 
window, Graphics 21), pick a random color from to 15, and set 
the color registers through 2. {Note: One register is set darker 
than the rest.) 

1010 GRAPHICS 21:C=INT(RND(0)*16):SETC 
OLOR 0,C,8:SETC0L0R 1 , C , 8 : SETCOLOR 2,C 
,4:C0L=1 

Start with color register 1 and draw squares in ever-decreasing 
increments. The PLOT and DRAWTO allow you to plot points and 
draw lines in the graphic modes 3, 4, 5, 6, 7, 8 (also 9, 10, and 
1 1 if you have the new GITA chip). The PLOT statement illumi- 
nates a single point on the screen. DRAWTO indicates the column 
and row to draw to and must be used with the PLOT statement. 
PLOT must also be preceded by a COLOR(n) statement to inform 
it as to which color register to use; otherwise it will PLOT and 
DRAWTO in the background color of black. 
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1020 FOR 1=0 TO 20: COLOR COL 

1030 X=I*2: Y=I:SOUND 1,1*5,10,8 

1040 PLOT X,Y 

1050 DRAWTO 79-X , Y: DRAWTO 79-X,47-Y:PL 

OT 79-X-l,Y 

1060 DRAWTO 79-X- 1 , 47-Yt DRAWTO X,47-Y 

1070 DRAWTO X,Y:PLOT X+l , 47-Y: DRAWTO X 

+ 1,Y 

Shift color register every other time around for darker color in 
some squares. 

1080 C0L=C0L+0.5: IF C0L+0.5>=4 THEN CO 
L=C0L-3 

1090 NEXT I: IF (MXOSX OR MYOSY) THEN 
2000 

Note: The above IF/THEN statement makes sure the man made 
it back to the ship location. If he didn't make it the program skips 
the part below which draws the man inside the ship. 

Draw a man inside the time machine. 

1100 COLOR 0:PLOT 44, 21: DRAWTO 36,21:P 
LOT 39,19:DRAWT0 39,17:DRAWT0 41,17:DR 
AWTO 41, 19: PLOT 40, 18: DRAWTO 40,23 
1110 PLOT 39, 22: DRAWTO 39, 23: DRAWTO 37 
,25: PLOT 4 1,22: DRAWTO 4 1,23: DRAWTO 43,25 

Transfer the colors from one register to another and create sound 
for effect of travel through time. 

2000 FOR TME=1 TO 50: TEMP=PEEK (708) : PO 
KE 708, PEEK (709) : POKE 709, PEEK (710) : PO 
KE 710,TEMP 

2010 SOUND O, TEMP* 15, lO, 4: BOUND 1 , PEEK 
(708) , 10, 4: FOR TIME=1 TO 10: NEXT TIME: 
NEXT TME 

Turn off sound and check to see if the man is in the ship again. 
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2020 SOUND 0,0, 0,0: SOUND 1 , O, O, O: GRAPH 
ICS 18: IF (MXOSX OR MYOSY) THEN 500 

If the man didn't make it back to ship: 

500 POSITION 2,4:? #6; "YOUR TIME MACHI 

NE":? #6;" LEFT WITHOUT YOU!" 

510 POSITION 4,6:7 #6; "LOOT *" ; LOOT 

520 IF LOOT>HI THEN HI=LOOT 

530 POSITION 2,7:? #6; "MOST LOOT »";HI 

550 POSITION 3,9:7 #6; " [in verse] PLAY A 

GAIN? Y/N" 

560 OPEN #1,4,0,"K:":GET #1,K: CLOSE #1 

570 IF K<>78 AND K<>89 THEN 560 

580 IF K=78 THEN POSITION 1,10:7 #6; "T 

HANKS FOR PLAYING" : FOR TM=1 TO 500:NEX 

T TM:END 

590 GOSUB 3080:G0T0 20 

If the man was in the ship the program increments to next time 
zone and checks to see if he's survived all 9 time zones. 

2025 Z0NE=Z0NE+1: IF Z0NE=10 THEN 4000 

The man made it through all nine zones. 

4000 POSITION 2,1:7 #6; " CinverseDCONGR 

ATULATIONS! ": POSITION 2,3:7 #6; "you pi 

lliaged all" 

4010 POSITION 3,4:? #6; "nine time zone 

s";:PUT #6, 1 : POSITION 1,6:7 #6; "LOOT T 

AKEN *" ;LOOT 

4020 IF LOOT>HI THEN HI=LOOT 

4030 POSITION 2,7:7 #6; "MOST LOOT «" ;H 

I 

4040 FOR TIME=15 TO O STEP -1:F0R TME= 

10 TO 15: SOUND O, TME, 10, TIME: SOUND 1,T 

ME*5, 10, TIME: NEXT TME: NEXT TIME 

4050 GOTO 550 
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If there are still more zones left, the program informs the player. 

2027 POSITION 4,4:? #6; "now entering": 
POSITION 4,5:7 #6; "TIME ZONE #";ZONE 

Shuffle the land line numbers from line 3060 so layout of the land 
will not be in the same order each time the ship lands. 

2030 FOR SHU=9 TO 2 STEP -1 :NL=INT (RND 
(0)*SHU)+1:T=L(NL) : L (NL) =L (SHU) :L(SHU) 
=T:NEXT SHU 

Reset the creature and treasure locations. 

2032 FOR CRE=1 TO 9: CY (CRE) =0: CX (CRE) ■ 
0:NEXT CRE 

2035 FOR TRE=1 TO 9: TX (TRE) =INT (RND <0) 
*13) +3: TY (TRE) =INT (RND (O) *6) +4: NEXT TR 

E 

The program creates more creatures as the player makes it through 
each time zone. 

2036 FOR CRE=1 TO ZONE: CX (CRE) = INT (RND 
(0)*13)+3:CY(CRE)=INT(RND(0)*6)+4:NEXT 

CRE 
2040 ON ZONE GOSUB Z ( 1 ) , Z (2) , Z (3) , Z (4) 
,Z(5),Z(6),Z(7),Z(B),Z(9) 

Note: Above are the shuffled zone line numbers from line 3080. 

The shapes of trees, rocks, walls, and creatures are created be- 
low. Each is a different shape in each of the nine time zones the 
player will enter. 

Note: These are being changed by the program as the player is 
reading the message ENTERING TIME ZONE n. 



186 GRAPHIC ADVENTURES 

2060 RESTORE 2081: FOR TIME=1 TO 7: READ 

X 
2070 FOR Y=0 TO 7: READ ZzPOKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME: RETURN 

2081 DATA 24,239,239,239,0,254,254,254 
,0 

2082 DATA 40,60,126,255,126,60,24,24,2 
4 

2083 DATA 48,24,24,24,24,24,24,24,60 

2084 DATA 56,255,219,129,129,129,129,1 
65,255 

2085 DATA 64,16,40,68,130,8,20,34,65 

2086 DATA 72,16,8,4,2,1,255,255,255 

2087 DATA 256,0,0,255,255,255,255,0,0 
2090 RESTORE 2111:F0R TIME=1 TO 7: READ 

X 
2100 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME:RETURN 

2111 DATA 24,224,238,238,238,14,238,23 
8,224 

2112 DATA 40,189,90,189,24,24,24,24,24 

2113 DATA 48,24,24,24,24,24,60,66,129 

2114 DATA 56,170,255,213,129,129,171,2 
55,85 

2115 DATA 64,170,68,170,0,170,68,170,0 

2116 DATA 72,0,0,60,126,126,126,60,0 

2117 DATA 256,0,0,170,255,255,85,0,0 
2130 RESTORE 2151: FOR TIME=1 TO 7: READ 

X 
2140 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME: RETURN 

2151 DATA 24,255,255,255,255,255,255,2 
55,255 

2152 DATA 40,24,60,126,255,255,126,60, 
24 

2153 DATA 48,24,24,24,24,24,255,60,255 

2154 DATA 56,24,36,66,129,129,66,36,24 

2155 DATA 64,130,68,40,16,65,34,20,8 

2156 DATA 72,0,32,112,36,14,68,224,64 

2157 DATA 256,0,0,0,255,255,0,0,0 
2160 RESTORE 2181: FOR TIME=1 TO 7: READ 

X 
2170 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
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T,Z:NEXT Y:NEXT TIME:RETURN 

2181 DATA 24,102,255,255,126,126,255,2 
55, 102 

2182 DATA 40,60,255,126,24,126,255,60, 
24 

2183 DATA 48,60,255,126,24,126,255,60, 
24 

2184 DATA 56,255,255,129,129,129,129,2 
55,255 

2185 DATA 64,56,238,0,28,119,0,56,238 

2186 DATA 72,112,56,28,0,28,56,112,224 

2187 DATA 256,0,0,0,255,255,0,0,0 
2200 RESTORE 2221: FOR TIME=1 TO 7: READ 

X 
2210 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIMErRETURN 

2221 DATA 24,170,85,170,85,170,85,170, 
85 

2222 DATA 40,126,255,90,102,90,102,255 
,24 

2223 DATA 48,24,90,189,90,24,24,24,24 

2224 DATA 56,60,102,195,129,129,195,10 
2,60 

2225 DATA 64,137,157,137,195,195,145,1 
85, 145 

2226 DATA 72,0,120,120,0,60,60,0,0 

2227 DATA 256,0,0,0,255,255,0,0,0 
2240 RESTORE 2261: FOR TIME=1 TO 7: READ 

X 
2250 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME:RETURN 

2261 DATA 24,170,170,170,170,170,170,1 
70, 170 

2262 DATA 40,129,66,60,153,90,60,24,24 

2263 DATA 48,24,60,90,153,24,60,66,129 

2264 DATA 56,255,129,231,129,231,129,1 
29,255 

2265 DATA 64,73,0,0,146,0,0,73,0 

2266 DATA 72,153,62,96,60,6,124,24,129 

2267 DATA 256,255,129,129,231,129,231, 
129,255 

2280 RESTORE 2301:F0R TIME=1 TO 7: READ 
X 
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2290 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME:RETURN 

2301 DATA 24,255,0,255,0,255,0,255,0 

2302 DATA 40 , 1 26 , 255 , 255 , 255 , 255 , 255 , 1 
26,60 

2303 DATA 48,60,60,60,60,60,60,255,255 

2304 DATA 56,255,129,135,225,135,225,1 
29,255 

2305 DATA 64,198,198,0,24,24,0,198,198 

2306 DATA 72,0,16,56,124,56,16,0,0 

2307 DATA 256,255,129,225,135,225,135, 
129,255 

2320 RESTORE 2331: FOR TIME=1 TO 7: READ 
X 

2330 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME: RETURN 

2331 DATA 24,85,85,85,85,85,85,85,85 

2332 DATA 40,192,224,240,120,28,14,7,7 

2333 DATA 48,7,7,7,7,15,30,62,60 

2334 DATA 56,102,60,60,255,60,100,4,6 

2335 DATA 64,68,146,41,68,0,36,82,137 

2336 DATA 72,6,6,0,48,48,0,192,192 

2337 DATA 256,102,60,60,255,60,38,32,9 
6 

2380 RESTORE 2391: FOR TIME=1 TO 7: READ 
X 

2390 FOR Y=0 TO 7: READ Z:POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME:RETURN 

2391 DATA 24,219,219,0,219,219,0,219,2 
19 

2392 DATA 40,63,126,252,248,240,224,96 
,96 

2393 DATA 48,96,96,96,96,96,96,96,96 

2394 DATA 56,171,171,255,255,255,255,2 
13,213 

2395 DATA 64,16,40,2,37,80,4,74,160 

2396 DATA 72,0,24,36,66,129,255,255,25 
5 

2397 DATA 256,213,213,255,255,255,255, 
171, 171 

The program returns here to pick random colors for the display 
of each time zone. 
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2045 POKE 708, INT (RND<0)* 16)* 16+83 POKE 
709, INT(RND(0> *16) *16+8:P0KE 710, INK 

RND<0)*16)*16+8 

2046 POKE 711, INT(RND(0) * 16)* 16+8 

The program picks a random ship location, sets a background 
color, sets the timing registers to zero, lets the computer know 
where to find the new character set, and returns to main loop. 

2050 LOC=INT(RND<0) *9)+l:P0KE 712, INT ( 
RND(0)*16)*16+12:P0KE 20,0:P0KE 19,0:S 
H I P=LOC : POKE 756 , START/256: RETURN 

The main program loop: 

First, clear screen and display loot. 



20 ? #6;"Cesc ctrl clear H" : POSITION 1, 
0:7 #6; "*";LOOT 



Then jump to the correct routines (shuffled in line 2030) to draw 
the landscape. 

30 ON LOC BOSUB L ( 1 > , L (2) , L (3) , L (4) , L ( 
5) ,L(6) ,L(7) ,L(8) ,L(9) 

Note: The program uses a PUT statement instead of a PRINT 
statement. This allows the man character to be displayed in a 
usually unavailable color. Example: In direct mode type GRAPH- 
ICS 2:PRINT #6;"![inverse]!" hit RETURN. Now displayed are two 
colored exclamation marks. Since there is no way to display the 
exclamation marks other than normal or inverse, there are only 
two colors available to the program. Hit SYSTEM RESET and 
again in direct mode type GRAPHICS 2:PUT #6,1:PUT #6,33:PUT 
#6,129:PUT #6,161. There are now four colored quotation marks. 
For other character values see Appendix B. 

40 POSITION MX, MY: PUT #6,1 
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If ship variable equals (SHIP) location variable (LOC), a PUT 
statement places it on the screen. 

50 IF LOC=SHIP THEN POSITION SX,SY:PUT 
#6,251 

Set time variable and reset color shift register. 

60 TM=PEEK<19)/14:P0KE 77,0 

Print the amount of time remaining. 

70 POSITION 14,0:? #6; MAXMIN-INT (TM) ; " 
MIN. " 

If time has expired, time machine leaves. 

80 IF MAXMIN=TM THEN GOSUB lOOO:G0T0 2 


Sound a 30-second warning before time machine leaves. 

90 IF TM=<MAXMIN-0.5> THEN SOUND 1,0,4 
,1 

Program checks for joystick trigger being pressed 

100 IF STRIG(0)=0 THEN GOSUB 210 

then checks to see if player wants to move (which way is joystick 
being pressed?). 

110 S=STICK<0) :NX=(S=5 OR S=6 OR S=7)- 
(S=9 OR S=10 OR S=ll) 

120 NY=(S=5 OR S=9 OR S=13)-(S=6 OR S= 
10 OR S=14):IF NOT (NX OR NY) THEN 60 
1 25 0X=MX : 0Y=MY: MX=MX+NX : MY=MY+NY 
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If player's man is at the limits of the screen, the program changes 
locations. 

130 IF MX>19 THEN MX=0:GOTO 300 

140 IF MX<0 THEN MX=19:G0T0 320 

ISO IF MY>11 THEN MY=1:G0T0 350 

160 IF MY<1 THEN MY=11:G0T0 370 

The program checks to see if player's man is at the ship location 

170 LOCATE MX,MY,Z:IF Z=251 THEN POSIT 
ION OX,OY:? #6;" " ; : GOSUB 100O:GOT0 60 

then it checks to see if player's man is trying to go through a 
tree, rock, or wall. 

175 IF Z<>32 THEN MX=0X: MY=0Y: GOTO 60 

Next it checks to see if player's man is on the same space with 
the treasure. 



180 IF MX=TX(L0C) AND MY=TY(L0C) THEN 
GOSUB 250 

185 POSITION 0X,0Y:7 #6;" ";:P0SITI0N 
MX, MY: PUT #6,1: SOUND 0,150,6,4 

Finally, it checks to see if player's man is on the space with a 
creature. 

190 SOUND 0,0, 0,0: IF CX(L0C)=MX AND CY 
(L0C)=MY THEN 460 
200 GOTO 40 

These subroutines display each location accessed from line 30: 

800 POSITION 2,2:? #6; " [inverse]### ## 
# ### ###" :FOR BY=3 TO 5: POSITION 2, BY 
:? #6; "[inverse]* # # #" : NEXT BY 
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810 POSITION 2,6:? #6; " tin verse 3 ###### 

tt #######": FOR BY=7 TO 9: POSITION 2, BY 

:? #6; "Cinverse3# # # #":NEXT 

BY 

S20 POSITION 2,10:7 #6; " Cinverse3### # 

## ### ###": RETURN 

S40 POSITION 2,2:? #6; " C i nverse]###### 

# ######": GOSUB 970:G0SUB 980:G0SUB 
990: RETURN 

850 FOR BY=3 TO 4: POSITION 2, BY:? #6;" 

Cinverse3#":NEXT BY: FOR BY=8 TO 9:P0SI 

TION 2, BY:? #6; " C inverse]*" : NEXT BY 

860 BOSUB 960:B0SUB 970:G0SUB 980:RETU 

RN 

870 FOR BY=3 TO 4: POSITION 17,BYi? #6; 

"Cinverse3#":NEXT BY:FOR BY=8 TO 9:P0S 

ITION 17, BY:? #6; " C inverse?3#" i NEXT BY 

880 GOSUB 960:G0SUB 980:G0SUB 990:RETU 

RN 

890 POSITION 2,10:? #6; " Cinverse3##### 

# #######": GOSUB 960: GOSUB 970: GOSUB 
990: RETURN 

900 POSITION 2,2:? #6; " C inverse3###### 
#######": FOR BY=3 TO 5: POSITION 7,B 
Y:? #6; " [inverse]# #":NEXT BY 
910 FOR BY=7 TO 9: POSITION 7, BY:? #6; " 
[inverse]* #":NEXT BY:POSITION 2,10: 
? #6; " Cinverse3###### #######" 
920 GOSUB 970: GOSUB 990: RETURN 
930 FOR TREE=1 TO 10: TX=INT (RND (0) *18> 
+1:TY=INT( (RND (0)*4) +2) *2: POSITION TX, 
TY:PUT #6, 134 

940 POSITION TX,TY-1:PUT #6, 37: NEXT TR 
EE: RETURN 

950 FOR SWAMP=1 TO 10: TX=INT (RND (0) *17 
)+l:TY=INT(RND(0) *9) +2: POSITION TX,TY: 
? #6; "C inverse D ((": NEXT SWAMP: RETURN 
955 GOSUB 950: GOSUB 930: RETURN 
960 POSITION 2,2:? #6; " C i nverse ]###### 
##########" : RETURN 

970 FOR BY=3 TO 9: POSITION 17, BY:? #6; 
"Cinverse]# M :NEXT BY:RETURN 
980 POSITION 2,10:? #6; " Ei nverse3##### 
###########" : RETURN 
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990 FOR BY=3 TO 9: POSITION 2, BY:? #6; " 

[inver5e]#":NEXT BY:RETURN 

When time is depleted, the program comes here from line 80, or 
if the man returns to the ship, it comes here to check time variable 
(TM). If time has not expired, the program returns to the main 
loop. 

1000 IF MAXMINOTM THEN RETURN 

If joystick trigger is pressed, the program comes here from line 
100. 

210 IF STICK (0)<>15 THEN 600 

If the player has less than $50 the treasure finder will not work 
and the program returns to the main loop. 

215 IF L00T<50 THEN RETURN 

Subtract the money from his loot and display the new amount. 

217 L00T=L00T-50: POSITION 1,0:7 #6;"*" 
;L00T;" " 

If the treasure at this location has already been found, the pro- 
gram sounds the buzzer and returns to the main loop. 

218 IF TY(L0C)=25 THEN SOUND 3,10,2,8: 
FOR T=l TO 20:NEXT T:S0UND 3,0,0,0:G0T 
245 

If the player has $50 the program comes here to find the treasure 
location and move the player one step closer to the treasure. 

220 OX=MX: 0Y=MY: OC=PEEK (709) : POKE 709, 
INT(RND(0)*16) * 16+1 2: SOUND 3,200, 10,8 
222 IF MX>TX(L0C) THEN MX=MX-1 
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225 IF MY>TY(LOC> THEN MY=MY-1 

230 IF MX<TX(L0C) THEN MX=MX+1 

235 IF MY<TY(L0C) THEN MY=MY+1 

240 POKE 709, OC: SOUND 3, 0,0,0: POP : GOT 

O 130 

245 IF STRIG(0)=0 THEN 245 

247 RETURN 

If the joystick handle is moved when the trigger pressed, the 
program comes here to check for a creature in this location. 

If the player has less than $200, the program returns to the main 
loop. 

600 IF L00T<200 THEN RETURN 

If a creature is present, it is shown to the player. 

610 SOUND 0,200, 10,8: IF CX (LOO THEN G 
OSUB 400 

Subtract money and display the new amount. 

630 L00T=L00T-200: POSITION 1,0:7 #6;"* 
";LOOT;" ": SOUND 0,0,0,0 
640 IF STICK (0)<>15 THEN 640 
650 RETURN 

When the player's man leaves the screen boundaries, the pro- 
gram comes here to change locations from lines 222 through 235. 

300 L0C=L0C+1: IF L0O9 THEN L0C=1 

310 GOTO 20 

320 L0C=L0C-1: IF LOC< 1 THEN L0C=9 

330 GOTO 20 

350 L0C=L0C+3: IF L0O9 THEN L0C=L0C-9 

360 GOTO 20 

370 L0C=L0C-3: IF LOC< 1 THEN L0OL0C+9 

380 GOTO 20 
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If man's location and treasure location are the same, the program 
comes here from line 180. The program puts the treasure on the 
screen, makes the appropriate sound, and adds the value of the 
treasure to the player's loot. 

250 POSITION TX(LOC) , TY(LOO : PUT #6,13 

7:F0R TME=1 TO 5:S0UND 0, 10, 10, 6: FOR T 

IME=1 TO 5: NEXT TIME 

255 SOUND 0,0, 0,0: FOR TIME=1 TO 20:NEX 

T TIME: NEXT TME 

260 TY(L0O=25:L00T=L00T+INT(RND(0) *10 

00*ZONE) +100: POSITION 1,0:? #6;"*"; LOO 

T: RETURN 

If the player's man location and the creature location are the 
same, the program comes here from line 190. The program shows 
the monster chewing, creates sound, and displays the appro- 
priate message. 

400 FOR TME=1 TO 5: POSITION CX(LOC),CY 

(LOO:? #6; "5)"; : SOUND 2,100,8,4 

410 FOR TIME=1 TO 9: NEXT TIME: POSITION 

CX (LOO ,CY(LOC) :? #6;"'"; 
420 SOUND 2, 0,0,0: FOR TIME=1 TO 9: NEXT 

TIME: NEXT TME: RETURN 
460 GOSUB 400: POSITION 1,4:? #6; "A ORE 
ATURE GOBBLED YOU UP" : GOTO 520 

The Time Crime program is complete. Be sure to save a copy 
onto cassette with the CSAVE command, or onto diskette with 
SAVE "D:filename." 



PART 4 



Creating Your Own 
Computer Adventure 



Now that you have become familiar with the basic components 
of a computer adventure, and the various programming capa- 
bilities of Atari PILOT, Microsoft BASIC, and BASIC, you are 
ready to create your own original adventure. In this section you 
will find The Creator, a program used to develop a disk-based 
adventure, along with some sample data you can enter to become 
familiar with how the program works, and The Interpreter, the 
program used to play the adventure you create. 

Remember that your programming can be as simple or as 
complex as you wish to make it. Simple, straightforward pro- 
grams can do the same job or task as one organized into various 
specialized subroutines. Although the job may take longer and 
use more memory with a simple program, it will still be accom- 
plished. However, as your programming skill improves, you may 
wish to take advantage of the advanced techniques which follow. 
These rules usually apply to BASIC, although some are valid for 
PILOT; the applicable language is noted for each. 
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MEMORY SAVINGS 

• Whenever possible, place multiple statements within program 
lines to eliminate line numbers. With each new line number, 
6 bytes of memory are required, but when a statement is added 
to an existing line, only 3 bytes of additional memory are re- 
quired. This applies to Microsoft BASIC as well as Atari BASIC. 
PILOT can use multiple statements only in its graphics routines 
(GR:) to draw pictures. 

• In Atari BASIC, replace much-used constants with variables. 
Each occurrence of a numeric constant in a statement is re- 
placed by a one-byte pointer to the memory location where the 
value of that constant is stored. This value in memory is stored 
in internal binary form and occupies an additional 6 bytes 
regardless of the size of the constant. This means that each 
occurrence of a constant requires 7 bytes of memory, since 
Atari BASIC does not check for multiple use of any constant. 

When a variable is used it is placed in a table in memory 
called the Variable Name Table (VNT). Six bytes of memory are 
allocated to store the value of the variable and an additional two 
bytes are stored in the VNT to point to the value of its variable. 
Only one byte is placed in the BASIC statement in place of the 
variable name. This byte points to the VNT. Therefore, replace- 
ment of much-used constants will save six bytes each time the 
constant is replaced. 

In order to be able to remember that the variable is being 
used as a constant, assign simple numeric variables to the con- 
stant in the following manner: U0 = 0:U10 = 10:U500 = 500, etc. 

• Use short variable names, because the more characters there 
are in a variable name, the more memory will be used to store 
the variable name in the VNT. Since you can have only 128 
variables in BASIC, significant memory savings can be achieved 
by reusing variables to perform the same task (i.e., FOR/NEXT 
loops). 

• Replace IF N<>0 with IF N. In PILOT, the conditional command 
would be changed from (#N<>0) to (#N). This technique will 
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save 3 bytes for each conversion. The use of an IF/THEN in 
BASIC or a conditional in PILOT is to check for true or false; 
if the variable equals zero, the statement is false and will not 
execute; anything other than zero is considered true and the 
statement executes. 

• Use subroutines to eliminate duplicate statements. When a 
statement is duplicated many times in a program, it is better 
to convert it to a subroutine and GOSUB each time the state- 
ment is required. 

• When jumping out of a FOR/NEXT loop or from within a sub- 
routine, use POP to clear the stack. When a GOSUB or FOR/ 
NEXT is executed, BASIC puts the return address into a com- 
puter memory location called the stack. When the RETURN or 
NEXT command is executed, the top address is popped off the 
stack and the computer uses it to return control to the program 
address. Therefore, the stack is constantly changing and, ide- 
ally, it is being cleared after each NEXT or RETURN command. 
If the program jumps out of the FOR/NEXT loop before com- 
pletion, or the RETURN is never executed, the stack retains the 
program address in memory. When this occurs, the stack can 
quickly eat up memory. The POP command clears these un- 
used addresses. 

SPEED OF EXECUTION 

• Organize your program so that seldom-used subroutines will 
be at the end. BASIC starts at the beginning of the program 
and searches downward by line numbers to find the requested 
GOTO, GOSUB, or FOR/NEXT loop. Placing much-used rou- 
tines as close to the beginning as possible will greatly speed 
up your program. 

USER-FRIENDLINESS 

• Always make your program user-friendly by the judicious use 
of TRAPs so that unwanted input can be ignored. Prompt the 
user for the proper input and explain the use of the program 
when necessary. 



The Creator 



This is a straightforward program to create an adventure by 
using the disk drive to store adventure data. Only one adventure 
per side of a disk is permitted because the names of the files 
that hold the information would conflict. Following The Creator 
program is sample data to enter as a demonstration of the way 
the program works. 

The Creator requires Atari BASIC, 16K and disk drive. 
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THE FLOWCHART 
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Display message 



Input room 
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Input all 
' connecting rooms j 
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THE PROGRAM 

Open the program with a title and beginning instructions. 

10 GRAPHICS 18:P0SITI0N 5,3:? #6; "adve 

nture": POSITION 6,4:? #6; "creator " 

20 POSITION 4,6:? #6; "INSERT NEWLY" : PO 

SITION 3,7:? #6; "FORMATTED DISK" 

30 POSITION 4,9:? #6; " C i nverseHPRESS R 

ETURN":OPEN #2,4,0, "K: " 

40 GET #2,K:IF K<>155 THEN 40 

Set up the screen, dimension variables, and clear them. Note: A 
channel is being opened to the editor for input. You will notice 
the input statement no longer displays a question mark; this is 
the only difference from a general input statement. This helps 
format the screen to conform to the interpreter program. 

50 GRAPHICS 0:0PEN #3, 4, 0, "E: " : POKE 7 
10, 12: POKE 712, 12: POKE 709, 2: DIM NA*(2 
0) ,DIS*(14) ,RD*(120) ,DIR(6) , ITEM (6) 
55 RD*(1)=" ":RD*C120>=" " : RD* (2) =RD*: 
NA*="":DIS*="" 

Give the user a chance to read instructions if desired. 

60 POSITION 2, 4: PRINT "DO YOU NEED INS 
TRUCTIONS? (Y/N) M 

Only accept Y (89) or N (78) key. 

70 GET #2,K:IF K<>78 AND K<>89 THEN 70 
SO IF K=89 THEN GOSUB 2000 

Instructions for the use of the program: 

2000 ? "[esc Ctrl clear]":? "BEFORE YO 
U BEGIN, YOU MUST DESIGN YOUR DUNG 
EON ON PAPER. " 
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2005 ? :? "FIRST, LAY OUT YOUR ADVENTU 

RE MAP AND NUMBER YOUR ROOMS." 

2010 ? :? "SECOND, LIST, NUMBER, AND V 

ALUE THE CONTENTS OF EACH ROOM. " 

2020 ? :? "THIRD, CONSTRUCT A LIST OF 

ITEMS BY NUMBER NEEDED TO ACCESS 

SPECIAL ROOMS." 

2025 ? :? "FOURTH, PREPARE A LIST OF A 

LL ROOMS WHICH CONTAIN CREATURES." 

2030 ? :? "FINALLY, ENTER ALL THE DATA 

" 11 

2040 ? :? "ANY TIME YOU WANT TO PLAY Y 
OUR ADVENTURE, LOAD IN INTERPRE 
TER AND RUN. " 

Turn off cursor. Wait for space bar to be pressed. 

2050 POKE 752, 1: POSITION 4,23:? "PRESS 

[inverse] SPACE BAR [inverse o-ff] TO 
CONTINUE"; 

2060 GET #2,K:IF K<>32 THEN 2060 
2070 POKE 752,0: RETURN 

Allow the user to name the adventure. 

100 DIS*="D:ADVENAME": CLOSE #1 

HO ? "[esc Ctrl clear] ": POSITION 2,4: 

? "WHAT IS THE NAME OF THIS ADVENTURE 

PLEASE LIMIT TO 20 CHARACTERS.":? 
115 ? "FOR SPECIAL COLORS USE [inverse 
3 INVERSE [inverse oii I AND lower cas 
e LETTERS! ! ":? 
120 TRAP 120: INPUT #3,NA* 

Print the adventure name to disk. 

130 TRAP 1100:0PEN #1 , 8, O, DIS*: PRINT # 
1;NA* 

Trap error and inform the user what is wrong. 
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1100 TRAP 40000: CLOSE #ls? :? "[esc ct 
rl 2: UNLOCK DISK AND [inverse] PRESS 
RETURN . " 

Accept only the RETURN key. 

1110 BET #2,K:IF K<>155 THEN 1110 
1120 GOTO 130 

Allow the user to input his or her name. 

140 NA*="" :? "INPUT YOUR NAME - LIMIT 

OF 20 LETTERS":? 

150 TRAP 150: INPUT #3,NA* 

Print author name to disk. 

160 PRINT #1;NA*: CLOSE #1 

Let the user know the task is completed, jump to delay loop, and 
prepare for the next phase. 

180 ? "[esc Ctrl cl ear] ": POSITION 2,4: 
? "PHASE ONE COMPLETED !": GOSUB 1000: DI 
S$="D: ADVEN.DAT" 

Delay loop. 

1000 FOR WAIT=1 TO 400: NEXT WAIT:RETUR 
N 

Clear screen, format output, print message and wait for input. 

190 PRINT "[esc ctrl clear 1 " : POSITION 
2, 4: PRINT "INPUT NUMBER OF ROOMS ":? : 
TRAP 190: INPUT #3,NR 

Only accept input between 5 and 50. 
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200 IF NR<5 THEN ? "A ";NR;"-ROOM DUNG 
EON IS VERY SMALL.":? "MAKE A BIGGER 
NE!" :GOSUB 1000: GOTO 190 

210 IF NR>50 THEN ? "YOU CAN ONLY CREA 
TE A 50-R00M DUNGEON ON ONE SIDE OF TH 
E DISK. " :GOSUB 1000: GOTO 190 

Input accepted; print number rooms to disk. 

215 OPEN #1,B,0,DIS*:PRINT #1;NR 

More user input: 

220 ? :? "HOW MANY MOVABLE OBJECTS ARE 
IN YOUR ADVENTURE": TRAP 220: INPUT #3 
,OBS:IF OBS<=0 THEN 220 

Dimension more variables (only those which are needed by user); 
clear the string. 

225 DIM IRN(OBS) ,VI (OBS) , ITEM* (0BS*20> 
:ITEM*(1)=" ": ITEM* (0BS*20) =" " : ITEM* ( 
2)=ITEM* 

Clear screen and relay more information to the user. 



230 ? "[esc ctrl clear: ": POSITION 2,4: 

? "OBJECT NAMES MUST BE MORE THAN 3 AN 

D LESS THAN 20 LETTERS. " 

232 ? :? "YOU MUST ALSO REMEMBER TO MA 

KE THE FIRST FOUR LETTERS OF EACH W 

ORD DISTINCTLY DIFFERENT." 

234 ? :? "[inverse] EXAMPLE: [inverse 

off] BOOKCASE and BOOKEND WOULD BY CON 

SIDERED THE SAME BY THE PROGRAM." 

236 ? "YOU COULD SAY 'DUSTY BOOKCASE' 
or 'HEAVY BOOKEND' THEN THE INTERP 
RETER WOULD UNDERSTAND. " 

237 ? :? "PRESS [inverse] SPACE BAR [i 
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n verse o-ff] TO CONTINUE" 

238 GET #2,K:IF K< >32 THEN 238 

239 ? "Eesc Ctrl cl ear] ": POSITION 2,4: 
7 "Eesc Ctrl 2JUSE UPPER CASE LETTERS 
FOR REST OF PROGRAM. ": GOSUB 1000 

The program loops based on the number of objects in the user's 
adventure: 

240 FOR LP=1 TO OBS:? "Cesc ctrl clear 
]":POSITI0N 2,4 

250 TRAP 250:7 "INPUT NAME OF OBJECT # 

";LP:7 : INPUT #3,NA*:IF LEN(NA*)<4 THE 

N 250 

255 ITEM*(LP*20-19,LP*20)=NA* 

260 TRAP 260:7 :7 "INPUT ROOM NUMBER 

F ";NA*:7 : INPUT #3,RM:IF RM< 1 OR RM>N 

R THEN 260 

262 IRN(LP)=RM 

265 TRAP 265:7 :7 "INPUT VALUE OF " ; NA 

*:7 : INPUT #3, V 

270 IF V>200000 THEN 7 "SORRY, MAXIMUM 

VALUE CAN ONLY BE $200000. " : GOTO 

265 
275 VI <LP)=V:NA*="":NEXT LP 

When all objects and data are entered, print the information to 
the disk. 

280 PRINT #1;0BS:PRINT #1;ITEM*:F0R LP 
= 1 TO OBS: PRINT #1 ; IRN (LP) : PRINT #1-,VI 
(LP): NEXT LP: CLOSE #1 

Inform the user that the operation is completed, and prepare for 
the next phase. 

290 7 "Cesc ctrl clear ]": POSITION 2,4: 
7 "PHASE TWO COMPLETED !!": GOSUB 1000:D 
IS*="D:ROOM" 

Loop to input information about each room ard direction data. 
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300 FOR LP=1 TO NR: POSITION 2,4 

310 IF LP<10 THEN DIS* (7, 7) =STR* (LP) : G 

OTO 330 

320 DIS*(7,8)=STR*(LP) 

330 ? "INPUT DESCRIPTION OF ROOM #";LP 

:? "(MAXIMUM OF THREE LINES)" 

332 ? "FORMAT SCREEN SO WORDS ARE NOT 

SPLIT BETWEEN LINES.":? 

335 TRAP 335: INPUT #3,RD* 

340 ? :? "INPUT ROOM NUMBER FOR EACH D 

I RECT I ON NORTH , SOUTH , EAST , WEST , UP , DOW 

N" :? 

350 ? "IF NO ROOM IN THAT DIRECTION, E 

NTER O" :? 

360 TRAP 1200: INPUT #3, N, S, E, W, U, D 

370 OPEN #1,8,0,DIS*:PRINT #1;RD*:PRIN 

T #1,N:PRINT #1,S:PRINT #1,E:PRINT #1, 

W:PRINT #1,U:PRINT #1,D:CL0SE #1 

380 NEXT LP 

Trap any errors in user input. 

1200 TRAP 40000: PRINT "YOU MUST ENTER 
A NUMBER FOR EACH DIRECTION. ": GOS 
UB 1000: GOTO 340 

Another section completed. 

390 ? "[esc Ctrl clear] ": POSITION 2,4: 
? "PHASE THREE COMPLETED !": GOSUB 1000 

Prepare for special information. 

400 ? "[esc Ctrl clear 3 ": POSITION 2,4: 
? "ARE THERE ANY ROOMS THAT NEED A 
SPECIAL ITEM TO GAIN ADMITTANCE. 
(Y/N) " 
410 GET #2,K:IF K<>89 AND K<>78 THEN 4 
10 

420 IF K=78 THEN 800 

430 ? :? "PLEASE LIMIT ROOMS TO A TOTA 
L OF 24. (MAXIMUM OF 4 IN EACH DIRECT 
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ION) . " 

435 7 :? "HOW MANY ROOMS ARE NORTH?" :G 

OSUB 1250 

Subroutine to handle input: 

1250 7 "ENTER [inverse: O [inverse of-f 
: IF NONE! " 

1260 GET #2,K:K=K-48: IF K>4 THEN 7 "PL 
EASE LIMIT TO 4 OR LESS": GOTO 1260 
1270 RETURN 

Back to the main program. 

450 IF K=0 THEN 500 

460 OPEN #1,8,0, "D: SPNORTH.DAT": PRINT 

#1;K 

470 GOSUB 1300:G0SUB 1400 

Routine to remind the user of an important fact. 

1300 ? "[esc Ctrl cl ear 3 ": POSITION 2,4 

:? "REMEMBER, YOU MUST ENTER THE NUMBE 

R OFTHE ROOM WHICH LETS YOU GAIN ACCES 

S" 

1310 ? "TO THE SECRET ROOM.": GOSUB 100 

O: GOSUB 1000: RETURN 

Subroutine for user input (used for all directions). 

1400 FOR LP=1 TO K:? "[esc ctrl clear] 

":POSITION 2,4 

1410 ? "INPUT #" ;LP:7 : 7 " - FROM ROOM 

NUMBER ":TRAP 1410:7 : INPUT #3,RM:DIR 
<LP>=RM 
1420 7 :? "INPUT ITEM [i n verse D (NUMBER 

ONLY) [inverse o-ff-3 NEEDED TO GAIN 
ACCESS FROM ROOM #";RM:TRAP 1420:7 : IN 
PUT #3, IT: ITEM(LP)=IT 
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1430 NEXT LP: FOR LP=1 TO K: PRINT #1;DI 
R (LP): PRINT #1 ; ITEM (LP) : NEXT LP: CLOSE 
#1: RETURN 

Return again to main program. 

500 ? :? "HOW MANY ROOMS ARE SOUTH?" : 6 

OSUB 1250 

520 IF K=0 THEN 550 

525 OPEN #1, 8, O, "D: SPSOUTH.DAT" .-PRINT 

#1;K 

530 GOSUB 1300:G0SUB 1400 

550 ? :? "HOW MANY ROOMS ARE EAST?": GO 

SUB 1250 

560 IF K=0 THEN 600 

570 OPEN #1,8,0, "D: SPEAST.DAT": PRINT # 

1;K 

575 GOSUB 1300: GOSUB 1400 

600 ? :? "HOW MANY ROOMS ARE WEST?": GO 

SUB 1250 

610 IF K=0 THEN 650 

615 OPEN #1,8,0, "D: SPWEST.DAT" : PRINT # 

1;K 

620 GOSUB 1300: GOSUB 1400 

650 ? :? "HOW MANY ROOMS ARE UP?":GOSU 

B 1250 

660 IF K=0 THEN 700 

665 OPEN #1,8,0, "D:SPUP. DAT": PRINT #1; 

K 

670 GOSUB 1300: GOSUB 1400 

700 ? :? "HOW MANY ROOMS ARE DOWN?": GO 

SUB 1250 

710 IF K=0 THEN 800 

720 OPEN #1,8,0, "D: SPDOWN.DAT" : PRINT # 

UK 

730 GOSUB 1300 .-GOSUB 1400 

Another phase completed. 

800 ? "[esc Ctrl clear] " : POSITION 2,4: 
? "PHASE FOUR COMPLETED !": GOSUB lOOO 
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Create monsters. 

810 ? "Cesc Ctrl clear] ": POSITION 2,4: 
? "ARE THERE ANY CREATURES TO FIGHT? 

(Y/N) ":? 
820 GET #2,K:IF K<>78 AND K<>89 THEN 8 
20 

830 IF K=78 THEN 900 

840 ? :? "HOW MANY CREATURES" : TRAP 840 
: INPUT #3,NC 

850 IF NONR THEN ? "THERE ARE MORE MO 
NSTERS THAN ROOMS IN YOUR DUNGEON" : GOS 
UB 1000: GOTO 840 
860 OPEN #1,8,0, "D: CREATURE. DAT": PRINT 

#1,NC 
870 DIM MON(NC):FOR LP=1 TO NC:? "Cesc 

Ctrl clear]":POSITION 2,4 
880 ? "INPUT ROOM OF CREATURE #";LP:TR 
AP 880: INPUT #3,RM 
885 MON(LP)=RM:NEXT LP 

890 FOR LP=1 TO NC: PRINT #1 ; MON (LP) : NE 
XT LP: CLOSE #1 

Finally, all information loaded. 

895 ? "Cesc ctrl clear] ": POSITION 2,4: 
? "PHASE FIVE COMPLETED !": CLOSE #3: GOS 
UB 1000 

Allow user the opportunity to try the new dungeon. 

900 ? "ARE YOU READY TO TRY YOUR DUNGE 

ON? (Y/N)" 

910 GET #2,K:IF K<>89 AND K<>78 THEN 4 

10 

920 IF K=78 THEN END 

930 TRAP 970:? "INSERT DISK WITH INTER 

PRETER C inverse] PRESS Cinver 

se of f] RETURN. " 

940 GET #2,K:IF KOI 55 THEN 940 

950 CLOSE #2: RUN "D: INTERPRE. TER" 
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960 END 



970 TRAP 40000: OPEN #2, 4, O. "Ks " : GOTO 9 
30 



The Creator program is now complete. Be sure to save a copy to 
disk with SAVE "Drfilename." 



SAMPLE DATA FOR THE CREATOR 
PROGRAM 

As always, begin with the construction of a map. Always make 
sure the player will begin the adventure from Room #1. 




Next, number, name, assign a location number, and declare a 
value for each object in the adventure: 
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ITEM NAME LOCATION # VALUE 



1 


Glass skull 


8 


20000 


2 


Magic ball 


3 


10000 


3 


Scroll 


10 


500 


4 


Ruby ring 


4 


100000 


5 


Brass key 


5 


5 


6 


Golden crown 


11 


200000 


7 


Dusty rag 


7 






Using the number of the item above, construct a list of items 
needed to help gain access to special rooms: 

Item #5: Needed to gain access to room #3, which is North of 

room #7. 
Item #2: Needed to gain access to room #4, which is West of 

room #5. 
Item #4: Needed to gain access to room #8, which is West of 

Room #9. 



Construct a list of room numbers which contain creatures: 

Room #6 
Room #10 

Now begin to enter the data. Run The Creator program and enter 
the data as follows. 

1. Name of Adventure - [inverse]deadly dungeon 

2. Enter your name. 

3. From the list above enter each item, its room number and its 
value. 

4. The description of each room and the number of the connecting 
room. (NOTE: The descriptions are formatted as they should 
appear when entered.) 
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Room #1 THE ENTRANCE OF A CAVERN. 
0,0,2,0,0,0 

Room #2 A VERY LARGE CAVERN. THE FLOOR SLANTS 

DOWNWARD AND THE WALLS ARE VERY DAMP. 
0,6,0,1,0,0 

Room #3 A VERY SMALL ROOM. THERE IS MOLD ON 
THE WALLS. THERE IS A VERY PUNGENT 
ODOR HERE. 
0,7,0,0,0,0 

Room #4 A ROOM WITH A LOW CEILING. THE ROOF 
IS HELD UP BY ROTTING TIMBERS. 
0,0,5,0,0,0 

Room #5 AN L-SHAPED ROOM WITH A DAMP FLOOR. 
0,9,0,4,0,0 

Room #6 A LARGE PASSAGEWAY. 
2,0,7,0,0,0 

Room #7 A LARGE SQUARE ROOM WITH SMOOTH WALLS. 
3,0,0,6,0,11 

Room #8 A LARGE ROOM. THERE IS A STONE TABLE 
IN THE MIDDLE OF THE ROOM. 
0,0,9,0,0,0 

Room #9 A LARGE T-SHAPED ROOM. THERE IS A 

LARGE QUANTITY OF MOSS ON THE WALLS 

AND THE FLOOR. 

5,0,10,8,0,0 

Room #10 A NARROW PASSAGEWAY. 
0,0,11,9,0,0 

Room #11 A LARGE RECTANGULAR ROOM. 
0,0,0,10,7,0 

5. When the program asks if there are special rooms, type Y. 

How many are North - type 1. 

Room #7 - Item #5 (Refer to the list from above) 
How many are South - type 0. 
How many are East - type 0. 
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How many are West - type 2. 

Room #5 - Item #2 

Room #9 - Item #4 
How many are Up - type 0. 
How many are Down - type 0. 

6. When the program asks if there are any creatures, type Y. 

How many - type 2. 
Room #2 - Room #10 

This completes the entry of all data. Key in Interpreter and RUN 
using the disk just created to supply information. 



Interpreter 



This program accompanies the preceding one and is used to play 
the adventure which was created with that program. The Inter- 
preter requires Atari BASIC, 16K, and disk drive. 
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THE FLOWCHART 

( Begin J 
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Yes 

6 
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Run program 



Yes- 



-0 



Yes 



-Yes 
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THE PROGRAM 

The program flow should be familiar now. Start with Instructions. 

10 GOSUB 2000: BOTO 30 

2000 GRAPHICS 18: POSITION 7,3:7 #6; "in 
serf: POSITION 6,4:7 #6; "ADVENTURE" : PO 
SITION 8,5:7 #6; "DISK" 
2010 POSITION 5,8:7 #6; " C in verse 3 PRESS 

RETURN " : OPEN #2 , 4 , , " K : " 
2020 GET #2,K:IF KOI 55 THEN 2020 

The program closes the keyboard, dimensions the variables, clears 
the strings, and sets variable values. 

2030 CLOSE #2: DIM TI* (20) , NA* (20) , DIS* 

(14) ,DIR*(6) ,V*(3> , V0C*(48) , M*(30) , I*( 

20) , RD*(120) ,SR(24) , ITEM (24) , TEMP (24) 

2035 RD*(1)=" ":RD*<120)=" ":RD*(2)=RD 

*:V0C*=RD*(1,48) 

2040 NA*=RD*(1,20) : TI*=NA*: DIS*="D: ROO 

M " : SN=0 : SS=0 : SE=0 : SW=0 : SU=0 : SD=0 : ROOM= 

1:MONEY=0:ST=0 

2045 FOR L=l TO 24: SR (L) =0: ITEM (L) =0: T 

EMP(L)=0:NEXT L 

The program opens the disk file Adventure Name and inputs the 
title and the author's name from disk. 

2050 TRAP 2700 : OPEN # 1 , 4 , O , " D : AD VENAME 
": INPUT #1,TI*: INPUT #1,NA*: CLOSE #1:L 
N=INT( (20-LEN(TI*) )/2) 

It locates the starting position for the title and prints it to the 
screen. It does the same thing with the author's name. 

2060 TRAP 40000:7 #6;" [esc shift clear f 
]":POSITION LN,4:7 #6; TI*: LN=INT ( (20-L 
EN(NA*) )/2) 
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2065 POSITION 9, 7: PRINT #6; "BY" : POSITI 
ON LN,0: PRINT #6;NA* 

It creates a sound effect. 

2070 FOR V=0 TO 15 STEP 0.5: SOUND 0,60 
, 12,V:S0UND 1 , 120, 12, V: SOUND 2,60, 12, V 
: SOUND 3, 120, 12, V: NEXT V 

2080 FOR V=15 TO O STEP -0.5: SOUND 0,6 
0,12,V:S0UND 1 , 120, 12, V: SOUND 2,60,12, 
V:SOUND 3, 120, 12,V:NEXT V 

If the user did not have the proper disk in the drive the program 
would trap (line 2050) the error and send control below. 

2700 ? "Cesc ctrl 23" : POKE 710, 66: POKE 
712, 66: FOR T=l TO 30: NEXT T:RUN 

The program reads the rest of the information that the creator 
stored on disk. 

Note: The program uses the first of the inputs to dimension other 
variables. Remember OBS from Creator was the number of ob- 
jects in the adventure. 

2090 OPEN #1,4,0, "D: ADVEN.DAT": INPUT # 
1,NR: INPUT #1,0BS:DIM IRN (OBS) , VI (OBS) 
, ITEM*(20*0BS) 

After dimensioning the string and variables to hold room num- 
bers and value of the object, the program begins to input infor- 
mation from the disk. This loads the variables with the desired 
information. 



2100 INPUT #1, ITEM*: FOR LP=1 TO OBS: IN 
PUT #1,RM: INPUT #1 , VA: IRN (LP) =RM: VI (LP 
)=VA:NEXT LP: CLOSE #1 
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Now it opens the special files for information concerning a certain 
direction. 

Note: The trap statement sends execution of the program to the 
next line for special direction data. Remember, the Creator pro- 
gram only created files for which there was special information 
for that direction. If no file was made, the Interpreter program 
would crash and tell you that no such file existed. By trapping 
the program to the next line it will just jump to that line and try 
to open the next disk file. 

2110 TRAP 2130: OPEN #1 , 4, O, "D: SPNORTH. 

DAT": INPUT #1,SN 

2120 FOR LP=1 TO SN: INPUT #1,RM: INPUT 

#1, I:SR(LP)=RM: ITEM (LP) =1 : NEXT LP 

2130 CLOSE #1:TRAP 40000: TRAP 2 150: OPE 

N #1,4,0, "D:SPSOUTH. DAT": INPUT #1,SS 

2140 FOR LF-SN+1 TO SN+SS: INPUT #1,RM: 

INPUT #1, I:SR(LP)=RM: ITEM (LP) =1 : NEXT L 

P 

2150 CLOSE #1:TRAP 40000: TRAP 2170: OPE 

N #1,4,0, "D:SPEAST. DAT": INPUT #1,SE 

2160 FOR LP=SN+SS+1 TO SN+SS+SE: INPUT 

#1,RM: INPUT #1, I:SR(LP)=RM: ITEM(LP)=I: 

NEXT LP 

2170 CLOSE #1:TRAP 400OO:TRAP 2190: OPE 

N #1,4,0, "D: SPWEST.DAT": INPUT #1,SW 

2180 FOR LP=SN+SS+SE+1 TO SN+SS+SE+SW: 

INPUT #1,RM: INPUT #1 , I : SR (LP) =RM: ITEM ( 

LP)=I:NEXT LP 

2190 CLOSE #1:TRAP 40O0O:TRAP 2210: OPE 

N #1,4,0, "D: SPUR. DAT" : INPUT #1,SU 

2200 FOR LP=SN+SS+SE+SW+1 TO SN+SS+SE+ 

SW+SU: INPUT #1,RM: INPUT #1 , I : SR (LP) =RM 

: ITEM(LP)=I:NEXT LP 

2210 CLOSE #1:TRAP 40000: TRAP 2230: OPE 

N #1,4,0, "D: SPDOWN.DAT": INPUT #1,SD 

2220 FOR LF-SN+SS+SE+SW+SU+1 TO SN+SS+ 

SE+SW+SU+SD: INPUT #1,RM: INPUT #1,I:SR( 

LP)=RM: ITEM(LP)=I:NEXT LP 

2230 CLOSE # 1 : TRAP 40000: TRAP 2250:0PE 
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N #1,4,0, "D: CREATURE. DAT": INPUT #1,CRE 
2240 DIM MON(CRE) :F0R LP=1 TO CRE: INPU 
T #1,RM:M0N(LP)=RM:NEXT LP 
2250 CLOSE #1:TRAP 40000 

Now the program reads in the data common to every adventure, 
the vocabulary and one-letter direction commands. 

2260 FOR LP=1 TO 16: READ V*: VOC« (LP*3- 

2,LP*3)=V*:NEXT LP 

2270 FOR LP=1 TO 6: READ V»: DIR* (LP, LP) 

=V*:NEXT LP 

3000 DATA WAL,RUN,GO , GET, TAK, DRO, GI V, 

LOO,EXA,TOU,FEE,OPE,UNL,FIG,KIL, INV,N, 

S,E,W,U,D 

The program now checks the number of objects in this adventure 
and sets the player's initial strength by the value of each object. 
Thus, a valuable object will cost more strength points to pick up 
and, after fighting a dungeon full of creatures, the player may 
not have the strength to pick up such an object. 

2280 FOR LP=1 TO OBS: ST=ST+INT ( VI (LP) / 
1000) :NEXT LP 

The program requests the player to input his or her name and 
then assigns a message addressed to the player. 

2290 GRAPHICS 0:POKE 710, 0: POSITION 14 
,8:7 "[inverse] WELCOME!! C inverse 

off]":? "ENTER YOUR NAME INTO THE BOO 
K OF THE DEAD. " 
2300 TRAP 2300: INPUT NA* 
2310 POKE 752,1: PRINT : PRINT "MAY THE 
BLESSINGS OF THE GODS BE WITH YOU 

" ;NA*; " ! " 
2320 GOSUB 2400: RETURN 

The subroutine to play the death march: 
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2400 RESTORE 3100: FOR L=l TO 9: READ SO 
, DELAY: SOUND O, SO, 10, 8: FOR T=l TO DELA 
Y:NEXT T:SOUND 0,0,0,0 

2410 FOR T=l TO 8: NEXT T:NEXT L: RETURN 
3100 DATA 100,60,100,40,100,10,100,60, 
85,80,90,60, 100,40, 105,20, 100,60 

The program returns to beginning and sets variables to zero, 
clears the end of DIS$, and resets to new room number. 

30 M=0: N=0: S=0: E=0: W=0: U=0: D=0: SPD=0: D 
IS*(7,8)=" ":DIS*(7,8)=STR*(R00M) : TRA 
P 1750 

The program opens the room file and inputs description and 
information about what number room lies in each direction. 

40 OPEN #1,4,0,DIS*: INPUT #1,RD$: INPUT 
#1,N: INPUT #1,S: INPUT #1,E: INPUT #1,W 
: INPUT #1,U: INPUT #1,D: CLOSE #1 

If no such room exists, the program will come to the trap state- 
ment from line 30. 

Note: This should never happen unless the disk is destroyed or 
if data was entered incorrectly into the Creator program. 

1750 ? "[esc shift clear ]": POSITION 2, 
4:2 "[esc ctrl 2 1 CHECK DISK DIRECTORY 
FOR ROOM #"; ROOM: STOP 

The program colors the room by using the value of the variable, 
ROOM. 



45 POKE 710, INT (ROOM/3. 5) *16+2: POKE 71 
2,PEEK(710) 



It prints the information. 



228 CREATING YOUR OWN COMPUTER ADVENTURE 

50 PRINT "[esc shi-ft clear] ": POSITION 
2,0:? "[inverse]** WEALTH=>[ inverse of 
f]*"; MONEY: POSITION 21,0:? "[inverse/2 

Ctrl period' s/space]STRENGTH=>"; ST 
60 PRINT "[inverse/37 ctrl T'Sl" 
70 PRINT "[inverse/ 14 spaces! LOCATION 
: [inverse/14 spaces! ": PRINT :PRINT RD* 
80 PRINT : PRINT " [inverse/ctrl Q/8 ctr 
1 W's/19 ctrl R's/8 ctrl W's/ctrl El" 
90 PRINT "[inverse/ctrl Z/7 ctrl X's/c 
trl C/spacelTHERE ARE EXITS: [2 spaces/ 
ctrl Z/7 ctrl X's/ctrl CI" 

Before printing the exits, it checks to see if there are any special 
rooms with pathways to them blocked. 

100 PRINT : IF SN THEN GOSUB 1500 

110 IF N THEN PRINT "NORTH, "; 

120 IF SS THEN GOSUB 1520 

130 IF S THEN PRINT "SOUTH, " ; 

140 IF SE THEN GOSUB 1540 

150 IF E THEN PRINT "EAST, "; 

160 IF SW THEN GOSUB 1560 

170 IF W THEN PRINT "WEST, "; 

180 IF SU THEN GOSUB 1580 

190 IF U THEN PRINT "UP, " ; 

200 IF SD THEN GOSUB 1600 

210 IF D THEN PRINT "DOWN, "; 

220 PRINT "[2 esc ctrl + 7 s/spacel" 

Special directions? Yes! Print these directions in inverse. 

1500 FOR LP=1 TO SN: IF SR(LP)=R00M AND 
ITEM (LP) THEN N=0: PRINT "[inverse] NO 
RTH [inverse off], ";:SPD=1 
1510 NEXT LP: RETURN 

1520 FOR LP=SN+1 TO SN+SS: IF SR(LP)=R0 
OM AND ITEM (LP) THEN S=0: PRINT "[inver 
se] SOUTH [inverse off], ";:SPD=1 
1530 NEXT LP: RETURN 

1540 FOR LP=SN+SS+1 TO SN+SS+SE: IF SR ( 
LP)=R00M AND ITEM (LP) THEN E=0: PRINT " 
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C inverse] EAST [inverse off 3, " ;:SPD=1 
1550 NEXT LP: RETURN 

1560 FOR LP=SN+SS+SE+1 TO SN+SS+SE+SW: 
IF SR(LP)=R00M AND ITEM (LP) THEN W=0:P 
RINT "CinverseD WEST [inverse off], " ; 
:SPD=1 

1570 NEXT LP: RETURN 

15S0 FOR LP=SN+SS+SE+SW+1 TO SN+SS+SE+ 
SW+SU:IF SR(LP)=R00M AND ITEM (LP) THEN 
U=0:PRINT "[inverse] UP [inverse off] 
, ";:SPD=1 
1590 NEXT LP: RETURN 

1600 FOR LP=SN+SS+SE+SW+SU+1 TO SN+SS+ 
SE+SW+SU+SD: IF SR(LP)=R00M AND ITEM (LP 
) THEN D=0:PRINT "[inverse] DOWN [inve 
rse off], "; :SPD=1 
1610 NEXT LP: RETURN 

The program checks for items in the room and prints them. 

230 PRINT :PRINT " [inverse/ 10 ctrl R's 

/spaceHITEMS YOU SEE: [space/1 1 ctrl R' 

s]" 

240 PRINT :F0R LP=1 TO OBS 

250 IF IRN(LP)=R00M THEN I*=ITEM* (LP*2 

0-19,LP*20) :60SUB 1650: PRINT I*;", " ; : 

1$,= "" 

260 NEXT LP: PRINT "[2 esc ctrl +'s/spa 
ce3" 

Subroutines delete any spaces at the end of an object name. 

1650 IF I«(LEN(I*) ,LEN(I*) )=" " THEN I 
*=I*(1,LEN(I*)-1) :G0T0 1650 
1660 RETURN 

The program checks to see if there are any creatures here. 

270 FOR L=l TO CRE: IF MON(L)=ROOM THEN 

PRINT "THERE IS A MONSTER HERE ! " : M=L 
275 NEXT L: PRINT 
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It asks for user input. 

280 PRINT "C inverse 12 spaces] INSTRUCT 

IONS: C 12 spaces]": PRINT 

290 POKE 764, 255: POKE 752, O: TRAP 1700: 

M*=" ":TI*="" 

300 INPUT M*:POKE 752,1: IF LEN(M*)>1 T 

HEN 400 

The program determines whether input was a valid one-letter 
command. 

310 FOR LP=1 TO 6: IF DIR* (LP, LP) =M* TH 
EN DIR=LP:P0P : GOTO 330 

320 NEXT LP: PRINT "I DIDN'T UNDERSTAND 
THAT!" : GOTO 1710 

Then it checks to see if the player can go in that direction. 

Note: There may be several reasons why a player can't go in a 
direction: the monster won't let him, a special condition of that 
room, or that there is nothing in that direction. 



330 IF M THEN PRINT "THE MONSTER WON'T 

LET YOU! ":GOTO 1710 
335 ON DIR GOTO 340,350,360,370,380,39 
340 IF N THEN ROOM=N:GOTO 20 
345 GOTO 395 

350 IF S THEN ROOM=S:GOTO 20 
355 GOTO 395 

360 IF E THEN ROOM=E:GOTO 20 
365 GOTO 395 

370 IF W THEN ROOM=W:GOTO 20 
375 GOTO 395 

380 IF U THEN ROOM=U:GOTO 20 
385 GOTO 395 

390 IF D THEN ROOM=D:GOT0 20 
395 IF SPD THEN 1720 
397 PRINT "YOU CANT'T GO IN THAT DIREC 



TION! ":GOTO 1710 
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A special message: 

1720 PRINT "[inverse/esc ctrl 2/space] 
EXITS LISTED IN INVERSE REQUIREC7 spac 
esDSPECIAL OBJECTS TO USE ! ! [inverse of 
f/esc Ctrl -I" :G0T0 1710 

Now the routine to wait for a message to be read before returning 
for more input. (This is also a part of the trap statement in line 
290.) 

1700 PRINT "[esc ctrl 2HPLEASE SAY THA 
T AGAIN !":TRAP 40000 

1710 FOR LP=1 TO 250:NEXT LP:PRINT "C3 

exc ctrl -'s/9 esc inserts] " : GOTO 290 

In order to enable the player to move in that direction, add the 
following: 

20 IF R00M=1 THEN GOSUB 1900 

1900 GRAPHICS 18: POSITION 1,1: PRINT #6 

; "Cinverse J YOU ARE IN ROOM #1" 

1910 POSITION 1,3: PRINT #6; "YOU HAVE * 

"; MONEY: POSIT I ON 4, 4: PRINT #6; "IN TREA 

SURE" 

1920 LN=( (20-LEN<NA*> ) /2) : POSITION LN, 

6: PR I NT #6; NA*: GOSUB 2500 

1930 POSITION 5,8:PRINT #6; "do you wan 

t":P0SITI0N 1,9:PRINT #6; "to continue 

(Y/N)":0PEN #2,4,0,"K:" 

1940 GET #2,K:IF K<>78 AND K<>89 THEN 

1940 

1950 CLOSE #2: IF K=78 THEN POSITION 0, 

7:PRINT #6; " Ci nverse3LIVE LONG & PROSP 

ER!" :FOR T=l TO 250:NEXT T:END 

1960 GRAPHICS 0:P0KE 710,0: RETURN 

If the input was more than one letter, the program looks for a 
space and separates the words. 
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400 FOR LP=1 TO LEN(M*):IF M*(LP,LP>=" 
" THEN T I *=M* ( LP+ 1 , LEN ( M* ) ) : POP : GOTO 
420 

410 NEXT LP 



It checks for a verb that is part of the vocabulary and jumps to 
the proper rountine. 

420 FOR L=l TO 16: IF M* < 1 , 3) =VOC* (L*3- 

2,L*3) THEN V0C=L:P0P : GOTO 440 

430 NEXT L: PRINT "THAT IS NOT PART OF 

MY VOCABULARY ! " : GOTO 1710 

440 ON VOC GOTO 450,450,450,470,470,53 

O, 530, 570, 570, 610, 610, 700, 700, 750, 750, 

1000 

The GO, WALK, RUN routine sends control back to the one-letter 
direction routine to see if player can go in that direction. 

450 FOR L=l TO 6: IF TI* ( 1 , 1 ) =DIR* (L, L> 

THEN DIR=L:POP : GOTO 330 
460 NEXT L: PR I NT "YOU CAN'T GO THERE!" 
:GOTO 1710 

In TAKE and GET routines, the program checks to see if the object 
requested is one of the objects loaded into the Item string, then 
checks to see if player has already picked it up [IRN(n) = no 
room number], checks to see if it is in the same room as the 
player, checks to see if the player is strong enough, checks to 
see if the object is needed to set special directions, then lets the 
object be picked up and adds the value to the player's wealth. 

470 FOR L=l TO OBS: IF TI* < 1 , 4) =ITEM* (L 

*20-19,L*20-16) THEN POP : GOTO 490 

480 NEXT L: PRINT "YOU CAN'T TAKE A ";T 

I*:GOTO 1710 

490 IF IRN(L)=0 THEN PRINT "YOU ALREAD 

Y HAVE IT!" : GOTO 1710 

500 IF IRN(L)OR00M THEN PRINT "THAT I 
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TEM IS NOT HERE!" : GOTO 1710 
510 IF ST-INT(VI (D/1000X0 THEN PRINT 
"YOU ARE TOO WEAK TO CARRY THAT ITEM! 
":GOTO 1710 

512 FOR LP=1 TO SN+SS+SE+SW+SU+SD: IF I 
TEM(LP)=L THEN TEMP (LP) =L: ITEM (LP) =0 
515 NEXT LP 

520 ST=ST- I NT ( V I ( L ) / 1 000 ) : MONEY=MONE Y+ 
VI (L) : IRN(L)=0:G0T0 30 

In the routine for DROP and GIVE, the program checks first to 
see if it is a valid item. 

530 FOR L=l TO OBS: IF TI* ( 1 , 3) =ITEM* (L 
*20-19,L*20-17) THEN POP : GOTO 545 
540 NEXT LrPRINT "DROP WHAT !!!": GOTO 1 
710 

After ascertaining validity, the program checks to see if there is 
a monster in the room. If there is, there is a probability that it 
will attack the player if he or she begins dropping items in order 
to regain strength. 

545 IF M AND RND(0)>0.5 THEN PRINT "YO 
U'VE BEEN ATTACKED! " : GOSUB 2500: GOTO 7 
70 



If the player has the object, the program places it in the room, 
resets any special directions associated with the object, and sub- 
tracts the value from player's wealth. 



547 FOR LP=1 TO SN+SS+SE+SW+SU+SD: IF T 
EMP(LP)=L THEN ITEM (LP) =L: TEMP (LP) =0 

548 NEXT LP 

550 IF IRN(L)=0 THEN IRN (L) =ROOM: ST=ST 
+ INT (VI (D/1000) :MONEY=MONEY-VI (L) : GOT 
50 

560 PRINT "YOU'RE NOT CARRYING IT!!":G 
OTO 1710 



234 CREATING YOUR OWN COMPUTER ADVENTURE 

In the routine to LOOK and EXAMINE objects, the program checks 
to see if it is a valid object and displays a message if the object 
is in the room. If in your adventure you wish the player to see 
something special, additional program lines would have to be 
added here. 

570 FOR L=l TO 0B9: IF TI* ( 1 , 3) =ITEM* (L 
*20-19,L*20-17) THEN POP : GOTO 590 
580 NEXT L: PRINT "IT LOOKS LIKE A ";TI 
*; " ! ! ":GOTO 1710 

590 IF IRN(L)OROOM AND IRN(L)<>0 THEN 
PRINT "IT'S NOT HERE TO LOOK AT ! " : GOT 
1710 

600 PRINT "I SEE NOTHING SPECIAL !": GOT 
1710 

The routine to TOUCH and FEEL: 

610 FOR L=l TO OBS:IF TI* ( 1 , 3) =ITEM* (L 

*20-19,L*20-17) THEN POP : GOTO 630 

620 NEXT L: PRINT "IT FEELS LIKE A ";TI 

$;"!": GOTO 1710 

630 PRINT "IT FEELS " ; : F=INT (RND (O) *6) 

+1:0N F GOTO 640,650,660,670,680,690 

640 PRINT "ROUGH! !": GOTO 1710 

650 PRINT "SMOOTH! ! " : GOTO 1710 

660 PRINT "WET!!":GOTO 1710 

670 PRINT "DRY!!":GOTO 1710 

680 PRINT "COLD! " : GOTO 1710 

690 PRINT "WARM!":GOTO 1710 

The routine to OPEN and UNLOCK: 

700 PRINT "IF YOU HAVE THE CORRECT OBJ 
ECT, THE ITEM OPENS AUTOMAT I CALL 
Y!":GOTO 1710 

In the routine to FIGHT or KILL, the program checks to see if the 
monster is in the room, clears the screen, sets the color to red, 
and then randomly chooses a monster for the player to fight. 
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750 IF M THEN 770 

760 PRINT "THERE IS NOTHING HERE TO FI 

GHT!" .-GOTO 1710 

770 PRINT "[esc ctrl clear] ": POSITION 

2, 4: PRINT "THE MONSTER IS A " ; : POKE 71 

0,66: POKE 712, 66: POKE 752, 1 : F=INT (RND ( 

0) *4)+l 

775 ON F GOTO 780,790,800,810 

780 PRINT "HOBGOBLIN! ! " : MST=INT (RND (0) 

*80)+5:G0T0 850 

790 PRINT "DRAGON! ! " : MST=INT (RND (O) * 10 

0) +30: GOTO 850 

BOO PRINT "ZOMBIE! ! ":MST=INT (RND (O) *40 

) +10: GOTO 850 

810 PRINT "GIANT SPIDER ! " : MST=INT (RND ( 

O) *80)+20:G0T0 850 



The program displays monster's and player's strengths, allows 
the player to fight by using the space bar, creates sound, displays 
results, subtracts the hit points, and checks to see if the monster 
or the player is dead. 



850 POSITION 1,8: PR I NT "MONSTER STRENG 
TH ";MST;" ": POSITION 1,10: PRINT "YOU 
R STRENGTH ";ST;" " ; : POKE 764,255 
860 POSITION 12,19:PRINT "[inverse] PU 
SH SPACE BAR ": ML=INT (RND (O) * 10) : POSIT 
ION 5, 14: PRINT "MONSTER LOSES " ; ML 
870 YL=INT(RND(0)*6) :POSITION 24,14:PR 
INT "YOU LOSE " ; YL 
880 IF PEEK (764)0255 THEN 900 
890 POSITION 12,19:PRINT " PUSH SPACE 
BAR ":FOR T=l TO 10: NEXT T:GOTO 860 
900 COL=PEEK (710) : POKE 710,0: POKE 712, 
O: MST=MST-ML: ST=ST-YL: SOUND O, lOO, 2, 10 
:FOR T=l TO 50: NEXT T: SOUND 0,0, 0,0 



If the monster died, the program plays a song. 
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910 IF MST<=0 THEN PRINT * YOU KILL 
ED THE CREATURE ! ! " ; : MON ( M ) =0 : M=0 : GOSUB 

2500: POKE 752,0: GOTO 45 
2500 RESTORE 3200: FOR L=l TO 6: READ SO 
,DELAY:SOUND 0, SO, 10, 10: FOR T=l TO DEL 
AY: NEXT T:NEXT L: SOUND O, 0, O, O: RETURN 
3200 DATA 96,10,72,10,57,10,48,20,57,1 
, 48 , 40 

If the player died, it displays wealth collected and gives the 
player a chance to play again. 

920 IF ST<=0 THEN 1800 

1800 GRAPHICS 18:POSITION 5,1:PRINT #6 
; "[inverse] the monster ": POSITION 5,2:P 
RINT #6; "CinverseDkilled you" 
1810 LN=INT< (20-LEN(NA*> )/2) : POSITION 
LN, 4: PRINT #6;NA*:G0SUB 2400 
1815 POSITION 1,6:PRINT #6; "TREASURES 
*"; MONEY 

1820 POSITION 2,8:PRINT #6; " CinverseUT 
RY AGAIN? (Y/N)":OPEN #2,4,0,"K:" 
1830 GET #2,K:IF K<>78 AND K<>89 THEN 
1830 

1840 CLOSE #2: IF K=89 THEN RUN 
1850 POSITION 1,9:PRINT #6; "THANKS FOR 
PLAYING! ":FOR L=l TO 200: NEXT L:END 

If nobody died, it loops through the fight routine again. 

930 POKE 710, COL: POKE 712, COL: GOTO 850 

The routine for INVENTORY: 

1000 PRINT "[esc shift clear] ": PRINT " 
[inverse] YOU ARE CARRYING: - - VALUED 
AT: "1010 PRINT : FOR L=l TO OBS: IF 
IRN(L)=0 THEN PRINT ITEM* (L*20-19, L*2 
0);: PRINT "[esc tab/3 spaces]*" ; VI (L) 
1020 NEXT L: POSITION 5, 22: PRINT "TOUCH 
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[inverse] SPACE BAR [inverse o-ffDTO C 
ONTINUE":OPEN #2,4,0, "Ks" 
1030 GET #2,K:IF K<>32 THEN 1030 
1040 CLOSE #2: GOTO 50 

The last of the programs is finally complete. In the process of 
keying them in and playing them, hopefully you have enjoyed 
them and have learned something to help you in your efforts to 
make your own adventure programs. 



APPENDIX A 



Program Listings 



Following are the complete listings of each program presented. 
These listings contain characters not shown on the Atari key- 
board. They are special characters which use the Control, Es- 
cape, and Atari Logo (inverse) keys. Below is a list of these char- 
acters and the keystrokes needed to obtain them. 

¥ CTRL , CTRL R 

H CTRL A + CTRL S 

I CTRL B • CTRL T 

J CTRL C ■ CTRL U 

^ CTRL D I CTRL V 

T CTRL E T CTRL W 

/ — CTRL F j. ___ CTRL K 

\ — CTRL G , ___ CTRL Y 

A — CTRL H t ___ CTRL z 

■ CTRL Z ♦ CTRL . 

k. CTRL J % CTRL . 



1 CTRL K 

■ CTRL L 

™ CTRL M 

_ CTRL N 

■ CTRL 



\ ESC ESC 

t ESC CTRL UP-ARROW 

+ ESC CTRL DOWN-ARROW 

«■ ESC CTRL LEFT-ARROW 

* ESC CTRL RIGHT-ARROW 

* CTRL P « ESC SHIFT CLEAR 

r CTRL Q i E5C BftCK 5 
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ESC 


TAB 






d 


— _m 


INVERSE 


CTRL L 


a 


— — — 


ESC 


CTRL 2 




■ 





INVERSE 


CTRL M 


EJ 


«— ■— — 


ESC 


CTRL BACK-S 


■ 


___ 


INVERSE 


CTRL N 


U 


— ■- — 


ESC 


CTRL INSERT 


1 


_ 


INVERSE 


CTRL 


□ 


-,< "™ 


ESC 


CTRL TAB 




E 


___ 


INVERSE 


CTRL P 


□ 


"•"^ 


ESC 


SHIFT TAB 


n 


__ — 


INVERSE 


CTRL Q 


□ 


"»™ •" 


ESC 


DELETE 






___ 


INVERSE 


CTRL R 


□ 


■■•»«■ 


ESC 


INSERT 




■■ 
■I 


___ 


INVERSE 


CTRL S 


c 


■*■■" 


INVERSE 


CTRL 


i 


□ 


_ — — 


INVERSE 


CTRL T 


i: 


""■ 


INVERSE 


CTRL 


A 




___ 


INVERSE 


CTRL U 


i 


— _. M 


INVERSE 


CTRL 


B 


i 


__ — 


INVERSE 


CTRL V 


•j 


"*"" 


INVERSE 


CTRL 


C 


•■ 





INVERSE 


CTRL H 


:i 


— — — 


INVERSE 


CTRL 


D 


■■ 


— _ — 


INVERSE 


CTRL X 


n 


— — — 


INVERSE 


CTRL 


E 


i 


___ 


INVERSE 


CTRL Y 


s 


___ 


INVERSE 


CTRL 


F 


L 


___ 


INVERSE 


CTRL Z 


* 


— ■ — — 


INVERSE 


CTRL 


G 


□ 





INVERSE 


CTRL . 


r 


— — — 


INVERSE 


CTRL 


H 
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___ 


INVERSE 


CTRL ; 


r 


■"■■ 


INVERSE 


CTRL 


I 
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___ 


INVERSE 


SPACE 


i 


M MM mm 


INVERSE 


CTRL 


J 
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___ 


INVERSE 


SHIFT ■ 
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•""■■ 


INVERSE 


CTRL 


K 


II 


___ 


INVERSE 


SHIFT : 



BLACKBEARD'S TREASURE 



Objective: to find the secret hiding place of Blackboard's treasure. 
The program requires PILOT and 16K when used with cas- 
sette system or 24K with disk system. 



10 1 


J:*INITIALIZE 








26 «L0CATI0N1 








38 ( 


CittS=3 








46 1 


Z\UH-2 








56 1 


C!«E=5 








68 1 


c:ttw=4 








78 1 


C:$ITEM=A BOTTLE 


BURIED IN 


THE S 


88 ( 


CCttB=l) i$ITEM: 


:A MESSAGE IN 


THE B 


LE 










98 I 


£C«B=2) :$ITEM: 


:N0T» 


188 


C:$AREA=0N A 


SANDY BEACH 




118 


J:»PRINT 








126 


*L0CATI0N2 








138 


C:«S=l 








148 


C:»E=5 








158 


C!$ITEM=N0THING 


SPECIAL 




168 


C!$AREA=0N A 


SANDY BEACH 




178 


J:*PRINT 








286 


*L0CATI0N3 








228 


C:«H=1 








238 


C:OE=5 








235 


C:ttW=4 








248 


C!$ITEM=MOTHIMG 


OF INTEREST 


258 


CC«B=2) :$ITEM=A 


SMALL SAILBOAT 


255 


CCSSB=2) :»N=6 








268 


C:$AREA=0N A 


ROCK 


THERE 


E CLIFFS TC THE SOUTH 




278 


Ji*PRINT 








288 


*L0CATI0N4 








298 


C:«W=4 








388 


C:StN = 4 








318 


C:SIS = 4 








328 


C:«E=1 








338 


C:$ITEM=LOTS 


OF 


HATER 




348 


C:$AREA=SHIMMING IN THE OCEA 


358 


JiMPRINT 








366 


WL0CATI0M5 









SAND 
BOTT 



AR 
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370 C:«N-5 




380 C:»5=5 




390 C:8H=1 




400 Ci$AREA=IN A 


LARGE CITY 


410 C:$ITEM=MANY 


BUILDINGS 


420 Ji*PRINT 




440 *L0CATI0N6 




450 C:«N=6 




460 Cit*E=3 




470 C:SSS=6 




480 0:814=7 




490 C:$AREA=IN A 


SMALL SAILBOAT ON THE 


OCEAN 




500 C!$ITEM=L0T5 


OF MATER 


510 J:*PRINT 




520 ML0CATI0N7 




530 C:ttS=8 




540 C!«E=6 




550 C:$AREA=0N A 


SANDY BEACH 


560 C:$ITEN=A LARGE ROCK. THERE 15 A M 


E55AGE ON THE ROCK. 


570 j:*print 




580 ^LOCATIONS 




590 C:«W=10 




610 C:ttN=7 




620 Ci$AREA=0N A 


HILL OVERLOOKING THE 


OCEAN. 




630 Ci$ITEM=A SHOVEL 


640 CCStB=33 l$ITEM=A SHOVEL IN YOUR HAN 


D5. 




650 CCttB>3) :$ITEM=A HOLE IN THE GROUND 


655 CCttB>3) :»D=9 




660 JiWPRINT 




670 *L0CATI0N9 




680 C:»U=8 




690 C:$AREA=IN THE BOTTOM Of A HOLE 


700 C:$ITEM=A WOODEN CHEST 


710 CCSSB=5) :$ITEM=AN OPEN WOODEN CHEST 


NITH A MESSAGE CARVED ON THE BOTTOM 


720 J!*PRINT 




730 WL0CATI0N10 




740 c:ttN=ie 




750 C:8S=11 




760 Ci«tE=8 




770 C:»W=10 




780 C:$AREA=IN A 


FOGGY SMAMP 


790 C:$ITEM=NOTHING 


800 J:*PRINT 




810 *L0CATI0N11 




820 C:SSN=10 
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839 C:tSE = ll 

848 c:ttS=il 

858 c !ttM- 12 

868 C:$AREA-IN A FOGGY SWAMP 

878 Ci$ITEM=NOTHING 

888 J:«PRINT 

898 *L0CATI0N12 

968 C:«N=16 

918 C:ttW=18 

928 C!«E=il 

938 C:»5=ll 

948 C:$AREA=IN A CLEARING. 

958 C:$ITEM=A LOG 

968 JSKPRINT 

978 *L0CATI0N13 

988 C:ttN=12 

998 C:ttS=15 

1888 C:ttE=16 

1818 C!«W=14 

1828 C:$AREA=IN A DAMP CAVE 

1838 C:$ITEM=A MESSAGE ON THE NALL 

1848 J:*PRINT 

1858 *L0CATI0N14 

1868 C:«N=14 

1878 C!»S=15 

1888 C " SSE — 13 

1898 C:$AREA=ZN A NARROW TUNNEL 

1188 C:$ITEM=NOTHING 

1118 J:«PRINT 

1128 *L0CATI0N15 

1138 C:ON=13 

1148 C:SSE = 16 

1158 C!ttW=14 

1168 Ci$AREA=IN A NARROW TUNNEL 

1178 C:$ITEM=NOTHING 

1188 J:*PRINT 

1198 WL0CATI0N16 

1288 C:t*W=13 

1218 C:«5=17 

1226 Ci$AREA=ON A NARROW LEDGE 

1238 C:$ITEM=WATER RUNNING DOWN THE WA 

LLS. 

1248 J:*PRINT 

1258 WL0CATI0N17 

1268 C:tSD=18 

1278 C:«N=16 

1288 C:$AREA=ON THE RIM OF A LEDGE 

1298 C:$ITEM=L ADDER GOING DOWN 

1388 J:*PRINT 

1318 *L0CATI0N18 
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1329 CifftREft= ftT T HE BOTTOM OF ft L EDGE 

1336 C:$ITEM=JC£3iTHE TREASURI 

1348 C:»T=1 

1350 J:*PRINT 

1360 *PRINT 

1376 Ti* 

life i^^SSSE^SSMSaSESSSMSS^SSSSSE^m 



nffim 



ftRE $ftREA 



I486 T: 
1418 T: YOU 
1420 PO SiOM 
1438 T 



O C) C) C) ( J O O C) O C) (3 C) O (3 n c 



) C) C) C) C) 



1446 
1458 
1468 



T 
T 
T 



You can 
$ITEM 



see: 



1478 P0S:0,9 

1480 T: 

1490 T: 

1500 T: POSSIBLE EXITS 



1510 T: 



N 
W E 



run 
I I 

L|>JI 



1520 
1530 
1546 
1556 
1566 
1576 
1586 
1598 
1686 
1616 
1626 
1636 
1646 
1658 



T: 

P0S:2 

TCttN) 

P0SJ2 

TCttW> 

P0SS2 

TC«E> 

P0S!2 

TC»S> 

P0SS2 

TC»U> 

TCttD> 

PQS;0 

T: 



1,18 

8) :%t 
8,11 
83 ||* 
2,11 
8) :%+ 
1,12 
8) :t + 
9,11 
8) :%t 
8) :%± 
,15 



CJ [J 11 11 CI C3 CI 11 u [] [J [] ri ri ri r 



i ci r j [i r i 



1666 T! 

1676 JC»T=1J :*MIM 

1688 T: WHftT DO YOU HANT TO DO: 

1690 T! 

1700 Tt 

1710 J:*IMPUT 

1720 *INPUT 

1730 T:t*+\ 

1740 ft: 

1750 MS NORTH, SOUTH, EftST, NEST, UP, 

DOHN 
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1768 JM:*NORTH,*SOUTH,*EAST,*WEST,*UP, 

«DOMN 

1778 M STAKE, GET, READ, DIG, HOLE, OPEN, LOG 

1788 JM:*TAKE,*TAKE,*READ,*DIG,*HOLE,* 

OPEN,*LOG 

1798 T! I35AY THAT AGAIN ? ? ? ? 

1888 J:*CLEARBOTTOM 

1818 *NORTH 

1828 JC»N=8) :*CANTGO 

1838 C:$LOCNUM=ttN 

1848 J!*CHANGELOCATION 

1858 *SOUTH 

1868 JCtS5=83 :*CANTGO 

1878 C:$LOCNUM=»S 

1888 Ji*CHANGELOCATION 

1898 *EAST 

1988 JC»E=8) :*CANTGO 

1918 C:$LOCNUM=8E 

1928 J:*CHANGELOCATION 

1938 *HE5T 

1948 JC»N=8) :*CANTGO 

1958 C:$LOCNUM=SSH 

I960 J:*CHANGELOCATION 

1978 *UP 

1988 JCttU=8i :*CANTGO 

1998 C!$LOCNUM=«U 

2888 J:*CHANGELOCATION 

2818 *DOHN 

2828 JC»D=8) !*CANTGO 

2838 C!$LOCNUM=»D 

2848 J:*CHANGELOCATION 

2858 *LOG 

2668 A:=$LOCATION 

2878 MiL0CATI0N12 

2888 JN!*CANTDO 

2898 C!$L0CNUM=13 

2188 J:*CHANGELOCATION 

2118 *HOLE 

2128 Ai=$LOCATION 

2138 M:L0CATI0N8 

2148 JN:*CANTDO 

2158 J:*DOMN 

2178 *CANTGO 

2188 T! QVOU CAN'T GO IN THAT DIRECTI 

ON 

2198 J:«CLEARBOTTOM 

2288 *TAKE 

2218 A:=$LOCATION 

2228 MJLOCATION1, LOCATIONS 
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2239 JMi*TAKEl,*TAKE2 

2249 T! HTHERE IS NOTHING HERE TO TAK 

E! 

2259 Ji*CLEARBOTTOM 

2269 *TAKE1 

2279 JC»B<>0) :*HAUE 

2289 C:«B=i 

2299 U:*OK 

2399 J:*LQCATIONl 
2310 *TAKE2 

2329 JC«B<>2) :*HAVE 
2339 C:»B=3 
2349 Ui*OK 

2359 J:*L0CATI0N8 
2355 *READ 

2360 J«*B = i) :»MESSAGE1 

2379 ALLOCATION 

2380 M:0N7 , 0N9 ,N13 , 
2390 UY:*OK 

2400 TY:ttt 

2410 JM:*MESSAGE2,*MESSAGE3,*MESSAGE4 

2420 J:*CANTREAD 

2430 *MESSAGEi 

2440 U:*0K 

2450 C:ttB=2 

2460 Tift FIND A BOAT 

2470 T! SAIL IT WEST 

2489 Ti THERE'S A TREASURE THERE 

2499 T: ONE OF THE BEST 

2495 PAS249 

2599 J!*L0CATI0N1 
2510 WMESSAGE2 

2520 T! FIND A SHOVEL 

2530 Tl DIG IN THE GROUND 

2540 Ti FOR THERE A CLUE 

2550 T: MAY BE FOUND 

2560 Ji*RESET 

2570 «MESSAGE3 

2580 JCS*B<53 !*CANTREAD 

2590 Ti WHEN YOU CAN SEE 

2600 T: THROUGH THE FOG 
2610 T: CRAWL INTO 
2620 Tl THE HOLLOW LOG 
2630 J!*RESET 

2640 *MESSAGE4 

2656 T: LOOK AROUND THE CAVE 

2660 T: SO DIM 

2670 Ti AND THEN CLIMB ONTO 

2680 Ti THE RIM 

2690 J:*RESET 
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2798 «OPEN 

2718 ALLOCATION 

2728 MSL0CATI0N9 

2738 JN:*CANTDO 

2748 JCttBOO !*HAVE 

2758 C!»B=5 

2768 Ui*0K 

2778 J:*L0CATI0N9 

2788 *DIG 

2798 ALLOCATION 

2888 M!L0CATI0N8 

2818 JN:*CANTDO 

2828 J COB <> 33 :*CANTDO 

2838 J(«B>=43 :*HAUE 

2848 C:»B=4 

2858 U!*OK 

2868 J:*L0CATI0N8 

2878 WCANTREAD 

2888 T: QTHERE 15 NOTHING HERE TO REA 

D! 

2885 TCS*B = 2): THE NOTE TURNED TO DUST 

!t 

2898 J:*CLEARBOTTOM 

2988 *CANTDO 

2918 T: QYOU CAN'T DO THAT! 

2928 J:*CLEARBOTTOM 

2938 *HAUE 

2948 T: YOU ALREADY HAVE! 

2958 J:*CLEARBOTTOM 

2968 *OK 

2978 T! OKAY! 

2988 PA:68 

2998 E! 

3888 *CHANGELOCATION 

3818 C:«N=8 

3828 C:»5=8 

3838 C:»E=8 

3848 C:»H=8 

3858 C:S*U=8 

3868 c:t*D = e 

3878 C:$LOCATION=LOCATION$LOCNUM 

3888 ALLOCATION 

3898 M:ONl ,0N2 , 0N3 , 0N4 , 0N5 , 0N6 ,0 

N7 , 

3188 JM:*L0CATI0N1,«L0CATI0N2,«L0CATI0 

N3,*L0CATI0N4,»L0CATI0N5,*L0CATI0N6,»L 

0CATI0N7 

3128 M50N8 ,0N9 , N18 , Nil ,N12 , N13 > 

3138 JM:«L0CATI0N8,*L0CATI0N9,*L0CATI0 

N18,*L0CATI0N11,*L0CATI0N12,*L0CATI0N1 
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3 

3150 MiN14 f N15 , N16 , N17 ,N18 , 

3166 JM:*L0CATI0N14,*L0CATI0N15,*L0CAT 

I0N16,*L0CATI0M17 J *L0CATI0N18 

3176 E! 

3186 PRESET 

3196 PA:248 

3266 T:ttt 

3216 J:*CLEARB0TT0M 

3226 *CLEARB0TTOM 

3236 PAS128 

3249 TittEEtmaD 

3256 J:*INPUT 

3266 "INITIALIZE 

3276 C:GB1373=6 

3286 C:GB1374=2 

3298 HRITEjS, 

3366 P0S:4,3 

3318 WRITE:S,blackbeards 

3328 P0S:5,4 

3336 WRITE: 5, treasure 

3346 P0S:3,9 

3358 NRITE!S,BY JACK HARDY 

3368 50:1,13 

3378 PA:38 

3386 50:2,14 

3398 PA:38 

3468 50:4,16 

3418 PA:66 

3426 50:1,13 

3436 PA:38 

3448 50:8 

3456 PA:128 

3466 C:»B=8 

3476 C:ttT=8 [TREASURE 5TATU5 

3471 C:«N=8 [LOCATION POINTER 

3472 C:tt5=8 

3473 C:S*E=6 

3474 C:8H=6 

3475 C:ttD=8 

3476 C:»U=6 

3486 C:$LOCATION=LOCATION1 

3498 GRJQUIT 

3586 0:66718=6 E5ET5 5CREEN COLOR TO 

BLACK 

3518 C:QB82=6 C5ET LEFT MARGIN 

3526 E: 

3546 *HIN 



3556 P0 5i9 J 26 
3568 t:S333you f 



OUND IT! 
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3578 C:»T=«T+1 

3586 C:ttA=?\39 

3598 SO:»A 

3688 PA: 18 

3616 POSi^ ^e 

3628 T 

3638 C:ttA=?\36 

3648 SO:»A 

3658 PA: 18 

3668 JCttT<18) :*NIN 

3678 E: 



YOU FOUND IT! 



HALLS OF DEATH 

Objective: to explore the Halls of Death, to find an invisible Golden 
Treasure Chest, and to return to room number 1. More complete 
instructions are included in the program's listing. 

The program requires Atari Microsoft BASIC and 32K with 
cassette or 48K with disk drive. 



19 GOTO 2969 

26 FOR T=LENCM$3 TO 1 5TEP-1 : PRINT MID 

$CM$, T, 13 J : SOUND 0, ASC CMID$ CM$,T, 133 ,1 

0,19: NEXT:SOUND 9 , 9 , 9 t 9 : RETURN 

39 FOR T=LENCC3$3 TO 1 STEP-1 : C4$=C4$+ 

MIDSCCSS.T, 13 : NEXTi RETURN 

49 PRINT AT C 2, 113 ; "UZHJEEE" : RETURN 

59 L$ = " A HALLWAY. THERE IS A METAL DO 

OR WEST AND AN IRON GATE EAST . " : 

1$=" THE DOOR IS LOCKED." 

69 U2$ = " THE GATE IS LOCKED . •■ : S = 8 i GOTO 

669 
79 L$ = " THE WEST END OF A FOUL SMELLIN 
G ROOM. AN IRON GATE IS WEST." 
89 Vl$=" MY WAY EAST IS BLOCKED BY A P 
OOL OF LIQUID . " : 02$ = " THE GATE IS LO 
CKED.":GOTO 689 

99 L$=" THE EAST END OF A FOUL SMELLIN 
G ROOM." 

199 01$=" MY WAY WEST IS BLOCKED BY A 
POOL OF LIQUID."! S=19 ! GOTO 699 
119 L$=" THE BOTTOM OF A PIT. SOUTH I 
SEE A DOOR WITH NO HANDLE. ON A TAB 
LE IS A BOOK AND PEN .": GOTO 868 
129 L$=" A SMALL R00M.":V1$=" AN X IS 
MARKED ON THE FLOOR .": E=8 : S=14 : GOTO 71 
8 
139 L$=" A HALLWAY. A MAN'S BODY IS ON 

THE FLOOR. CHALK IS IN HIS HAND A 
ND THERE IS WRITING ON THE WALL." 
149 N=3:E=9: W=7:V1$=" A GIANT BLOCKS A 

DOORWAY SOUTH . ":GOTO 779 
159 L$=" A NARROW PASSAGE. FIRE BLOCKS 

MY WAY SOUTH.": W=8: GOTO 878 
168 L$=" A NARROW PASSAGE. A FOUL SMEL 
L COMES FROM THE NORTH ."! N=5 i E=ll : GOT 
878 
178 L$=" A NARROW PASSAGE. AN IRON DOO 

251 
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R LEADS WEST.":V1S=" THE DOOR IS LOCK 
ED.":N = 6!S=:17:G0T0 720 

180 L$ = " A LARGE ROOM. IN THE CORNER I 
S A POOL OF HATER."! Vl$ = " THERE IS A D 
RAGON IN THE ROOM .": E=13 : S=18 : GOTO 730 

190 L$ = " A SLOPING P ASSAGENAY . " : W=12 : E 
=14:G0T0 870 

2O0 L$=" A NARROW PASSAGEWAY . THERE IS 
GRAFITTI ON THE WALL . " ! W=13 ! N 
=7:G0T0 870 

218 L$=" A LARGE ROOM . " : Ul$=" I'M OUTS 
IDE A GOLDEN CAGE. INSIDE I SEE THE 
MAGIC RING.":N=8:S=2i:G0T0 650 
220 L$ = " A LARGE C AVERN . " : H-3 I GOTO 870 

230 L$=" A HALLWAY WITH AN ARROW CARUE 

D IN THE WALL POINTING SOUTH .": N=l 

l:S=24:G0T0 748 

240 L$ = " A LARGE PASSAGEWAY" : N=12 ! E = 19 

!S=26: GOTO 878 

258 L$ = " A TORTURE CHAMBER. A SMALL CE 

LL IS IN THE NORTH CORNER. IN THE CELL 

IS A SIGN . " : W=18 :GOTO 870 
260 L$=" A LARGE ROOM WITH ROUGH-CUT W 
ALLS. THERE ARE STAIRS GOING UP . " ! U 
=28:E=21iG0T0 878 

278 L$ = " A T-SHAPED PASSAGE WITH A DOO 
R NORTH. "!U1$=" THE DOORWAY IS 

GUARDED BY A GIANT." 
288 W=28:E=22:G0T0 760 

290 L$=" A T-SHAPED P ASSAGEWAY . " : S=29 ! 
W=21:E=23:G0T0 878 

3O0 L$ = " A CLOUER-SHAPED ROOM . " : W=22 : E 
=24:G0T0 878 

318 L$=" A STAR-SHAPED ROOM . " : S=31 : W=2 
3:N=17lG0T0 870 
320 L$ = " A SMALL DUSTY ROOM. A DOOR IS 

ON THE EAST WALL." 
330 Ul$=" THE DOOR IS CLOSED .": U2$=" T 
HERE IS A SILVER DOOR IN THE FLOOR W 
ITH A LADDER GOING DOWN .": GOTO 788 
340 L$=" A NARROW HALLWAY. THERE IS A 
DOORWAY SOUTH. ": Ul$=" THE DOOR IS CLO 
SED.":N=18:E=27:G0T0 888 

358 L$=" A LARGE LIBRARY. THERE ARE ST 
AIRS GOING DOWN .": W=26 : D=28: GOTO 8 
78 

360 L$ = " A STAIRWELL.": U = 27 : D = 20 '. GOTO 
878 
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378 L$ = " A LABORATORY." : 01$ = " THERE 15 

A NIZARD WITH A WAND .": N=22 : E = 30 ! GOTO 

810 
380 L$ = " A LARGE RECTANGULAR ROOM.":W= 
29:E=3l:G0T0 870 

390 L$ = " A LARGE CAOERN . WATER 15 RUNN 
ING DOWN THE WALL5 AND HA5 FORMED 

A LARGE LAKE." 
4O0 01$ = " THERE 15 SOMETHING MOOING IN 

THE LAKE .": W=30 : N=24 : GOTO 828 
418 L$ = " A LARGE LAKE. TO THE 50UTH I 
5EE A TUNNEL .": W=31 : 5=50 :GOTO 878 
420 L$ = " A LARGE SQUARE ROOM WITH A LO 
W CEILING. ":N=26 : GOTO 878 

438 L$ = " A VERY SMALL ROOM .": W=17 : GOTO 

878 
440 L$ = " A LARGE RED ROOM . " : S = 38 : N = 46 : 
E=36:W=47:IF TT>1 THEN 01$=" THERE ARE 

FOOTPRINTS IN THE DUST." 
458 GOTO 878 

460 L$ = " A NARROW PASSAGE .": W=35 : E=37 : 
GOTO 878 

478 L$=" AN L-SHAPED PASSAGE .": 5=48 : W= 
36:G0T0 878 

488 L$ = " AN L-SHAPED PASSAGE .": W=41 ! N= 
35IG0T0 878 

498 L$=" AN L-SHAPED PASS AGE . " : E=40 : 5= 
42:G0T0 878 

580 L$=" AN L-SHAPED PASS AGE .": N=37 ! W= 
39:G0T0 870 

510 L$=" AN L-SHAPED PASS AGE .": 5=42 : E= 
38:G0T0 878 

520 L$ = " AN L-SHAPED PASSAGE .": TT=TT+1 
:E=43:N=41 : GOTO 870 

530 L$ = " A NARROW P ASSAGE . " : TT=TT+1 : W= 
42!E=44:G0T0 870 
548 L$=" A SMALL ROOM .": N=39 : W=43 : GOTO 

878 
558 L$ = " A SMALL JAIL CELL. THERE IS A 

SIGN ON THE WALL. THROUGH THE BARS I 
SEE A TORTURE CHAMBER .": GOTO 878 
568 L$=" A NARROW PASSAGE. THERE IS A 
PIT NORTH. ":5=35:G0T0 878 
578 T1=8:F0R T=l TO 22 : IF I CT) =8 THEN 
T1=T:T=22 

588 NEKT:IF Tl>8 THEN R=45 : GOTO 2888 
598 L$=" A UERY SMALL ROOM .": E=35 : GOTO 

878 
60O L$ = " THE HALLS OF DEATH. IN FRONT 
OF ME IS A NARROW PIT. BEYOND THE P 
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IT 15 A PA5SAGEWAY.":G0T0 870 

610 L$ = " A LARGE DRAB ROOM .": E=3 ! GOTO 

870 

626 L$ = " A LONG WINDING TUNNEL. THE FL 

OOR 15 DAMP. THERE 15 GRAFITTI ON TH 

E WALL.":W=51:N=32:G0T0 870 

630 L$=" THE WE5T END OF A TUNNEL ."! 01 

$ = " THERE 15 A LADDER LEADING UP TO A 

5IL0ER DOOR." 
640 02$ = " THE 5IL0ER DOOR 15 LOCKED.": 
E=50:G0T0 838 
650 IF R = 15 AND D8 = l THEN 01$=" I'M IN 

A GOLDEN CAGE." 
660 IF R=3 AND Dl = l THEN 01$=" THE DOO 
R 15 OPEN . " : W=2 

670 IF R = 3 AND Gl=l THEN U2$=" THE GAT 
E 15 0PEN.":E=4 

688 IF R=4 AND Gl=l THEN 02$=" THE GAT 
E 15 0PEN."!W=3 

690 IF R=5 AND IC2I)=5 OR R=5 AND I C21 
) =4 THEN Ul$=" THERE 15 A BOARD ACR055 

THE LIQUID. ":W=4 
700 IF R=4 AND IC21)=5 OR R=4 AND I C21 
) =4 THEN 01$=" THERE 15 A BOARD ACR055 

THE LIQUID. ":E=5 
710 IF R=7 AND D4=I THEN 01$=" THERE I 
5 A HOLE IN THE FLOOR." 

720 IF R=ll AND D2=l THEN 01$=" THE IR 
ON DOOR 15 0PEN.":M=10 
730 IF R=12 AND MC1)=0 THEN 01$="" 
740 IF R=17 AND KH=1 THEN 01$=" THERE 
15 A BRA55 KEYHOLE IN THE WALL." 

750 IF R=17 AND KH=2 THEN 01$=" THERE 

15 AN OPEN PANEL ON EA5T WALL." 

760 IF R=21 AND MC2)=0 THEN 01$=" THE 

DOOR 15 OPEN AND UNGUARDED .": N=15 

770 IF R=8 AND MC23=8 THEN 01$=" THE D 

OOR 15 OPEN AND UNGUARDED .": 5=15 

780 IF R=25 AND D3=l THEN 01$=" THE DO 

OR 15 0PEN.":E=26 

790 IF R=25 AND LD=1 THEN 02$="" 

808 IF R=26 AND D5=l THEN 01$=" THE DO 

OR 15 0PEN.":5=33 

818 IF R=29 AND I C73 =99 THEN 01$="" 

820 IF R=31 AND MC33=0 THEN 01$="" 

838 IF R=51 AND LD=1 THEN 01$=" THERE 

15 A 5IL0ER DOOR ABOOE ME . " : U=0 

848 IF R=51 AND D6=l THEN 02$=" THE 51 

LOER DOOR 15 OPEN . " : U=25 
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858 IF IC13)=0 THEN 1$ C18) ="TSEHC ERUS 

AERT NEDLOG": I C18) =44 

866 IF R=6 AND D7 = l THEN Vl$ = " THE DOO 

R 15 OPEN":S=ll 

878 5ETC0L0R 6 , R , 2 \ 5ETC0L0R 8,R,2:PRIN 

T ATC1. 8) ; "»Sl 



I AM IN: 



888 PRINT L$: PRINT V 1$:PRINT V 2$ 
898 PRINT ATC2,7);'T 



EHITS 



ARE: 



380 IF NO© THEN 

310 IF 5<>0 THEN 

320 IF E<>0 THEN 

338 IF H<>0 THEN 

340 IF U<>0 THEN 

350 IF D<>0 THEN 

360 PRINT ATC2,10 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



■ i 

■ i 

■ ■ 

■ ■ 

■ i 
1 1 



NORTH"; 

SOUTH"; 

EA5T"; 

WEST"; 

UP"; 

DOWN"; 



I SEE 



370 
T$ + " 
388 
$,LE 
390 

1000 

OTO 

1010 
1020 

CO? 
1030 

1040 

OTO 

1050 

HEN 

106O 

SRED 
107O 
60,1 
1088 

1030 
1100 

1118 
1120 
1130 
1140 
1150 
1160 
1170 
1188 
1130 



FOR T = l 

," + 1$ CT 
NEKTJIF 
NCIT$)-2 
IF IT$ = " 
M$=IT$: 

1020 

GOSUB 2 
POKE 75 



TO 22 

IT$<> 

) 

" THE 

PRINT 



IF 



IT 
It 



S = 
T) 



ITEMS 



■ ■■■ 

= R THEN IT$ = I 



THEN IT$=RIGHT$CIT 



N IT$~ 
AT C3, 



OiGOSUB 343 
2,0:PRINT A 



■ i 
11 



T t 



BY YOUR COMMAND 



:POKE 
IF LE 
IF CO 

1018 
T1 = 0: 

T1=T:T 
NEXT: 

NU T'N 
ON Tl 

188 
IF N = 
R=N:G 
IF S = 
R = S:G 
IF E = 
R = E: G 
IF W= 
R = W: G 
IF U = 
R = U: G 
IF D = 
R = D: G 



752,1:C1$= C2 

NCC0$)>1 THEN 1 
$ = "" THEN M$="! 



GNIHTON" 
) ; : GOSUB 28:G 



2, 16) J_"| 

":INPUT 
$="":D3=0 
210 
EM NODRAPQ":G 



FOR T = l TO 6:IF CO$=DI$ CT) T 
= 6 

IF T1<1 THEN M$: 
DID IQ":G0T0 10 
GOTO 1088,1100 



"! ! TAHT DNAT 
HO 
, 1120, 1148,11 



O TH 
OTO 
O TH 
OTO 
O TH 
OTO 
TH 
OTO 
O TH 
OTO 
O TH 
OTO 



EN 

284 

EN 

284 

EN 

284 

EN 

284 

EN 

284 

EN 

284 



1288 


1200 

O 

1200 

O 

120O 

O 

12O0 

O 

120O 

O 
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120G M$ = "! UNOITCERID TAHT NI OG T ' NAC 

lQ":GOTO 1010 
1210 FOR T = l TO LENCCO$):IF MID$CCO$,T 
,1)=" " THEN C2$=RIGHT$CCO$,LENCCO$3-T 
) :T=LENCCO$) 
1220 NEXT:C1$=C0$:C4$="":C3$=C1$:G0SUB 

30:C1$=RIGHT$CC4$,3) : C4$="" : C3$=C2$ '. G 
05UB 30:C2$=RIGHT$CC4$,3) 
1225 IF Cl$ = " OG" THEN Cl$="OG" 
1230 Tl=0:FOR T = l TO 31 : IF Cl$=UOC$ CT) 

THEN T1=T:T=31 
1240 NENT:IF T1 = THEN 1440 
1250 IF Ti<17 THEN ON Tl GOTO 1450,155 
0,1550,1620,1680,1720,1720,1720,1850,1 
850, 1810,1810,1300,1950, 2220,2280 
1260 ON Tl-16 GOTO 233 0,2330,2460,2460 
, 25 40,2540, 2580, 1310,1320,2630, 2630,13 
30, 1340,2770,2770 

130O M$=".GNIDAER YB TOL A NRAEL ELPOE 
P"! GOTO 1O10 
1310 IF IC14)=0 AND DK = i THEN DK=0:GOT 

2840 

1315 GOTO 1440 

1320 IF I CI) =8 AND IC14)=0 AND DK = TH 

EN DK=l:I$C143="HCROT GNIBRUB" : GOTO 28 

40 

1325 GOTO 1440 

1330 IF RIGHT$CI$C10) , 8) ="FO SSALG" TH 

EN I$C10i="55ALG":GOTO 2688 

1448 M$="UTNAH UOY TAHW DNAT5REDNU T' 

NOD lQ":GOTO 1810 

1450 IF C2$="DAL" AND I C19) =99 AND R=5 

1 AND D6=l THEN R=25:G0T0 2840 

1460 IF C2$="KAL" AND R = 31 AND MC3)=1 

THEN M$="UGEL YM TA GNILBBIN SI GNIHT 

EM05":G05UB 20:G05UB 3490:G0T0 2910 

1470 IF C2$="NUT M AND R = 32 THEN R = 50 : G 

OTO 2840 

1488 IF C2$= M KAL" AND R=31 THEN R=32:D 

K=0:GOTO 2848 

1490 IF C2$="DAL" AND R=6 AND IC19)=R 

THEN R=l:GOTO 2848 

1580 IF C2$="H0D" AND R = l OR C2$ = ,, W0D" 

AND R=46 THEN R=6:G0T0 2848 
1510 IF C2$ = ,, RIF" AND I C18) =99 AND R = 9 

THEN R=16:G0T0 2848 
1528 T1=8:F0R T=l TO 6 : IF RIGHT$CC2$,i 
3=DI$CT) THEN T1=T 
1538 NEKTilF Tl>8 THEN 1070 
1540 M$="? ? ? ? ? EREHN OGQ" ! GOTO 101 
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1558 IF C2$="00D" AND R = ll AND I C43 =6 

THEN D2=1:G0T0 2889 

1568 IF CC2$ = ,, TAG" AND R = 3 AND I C43 =8) 
8R CC2$="TAG" AND R = 4 AND I C43 =8) THE 

N G1=1:G0T0 2888 

1578 IF C2$= M GAC M AND R = 15 AND I C153 =8 
THEN D8=l : I C133=I5 : G6T0 2888 

1588 IF C2$="00D" AND R = 26 THEN D5=l : G 

0T8 2848 

1598 IF C2$="00D" AND R = 25 THEN D3 = l ! E 

=26:G0T0 2888 

1688 IF C^S^'LIS" AND I C163 =8 AND R = 51 
THEN D6=l:G8T8 2848 

1619 M$=:" ! ! T ' NAC I" : G0T8 1819 

1629 IF R = 51 8R R = 6 THEN M$=" ! ! ! PU HGI 

H 08T S'TI":G9T8 1619 

1636 IF R = 5 6R R = 4 THEN M$=" ! U 5S0RCA 

RAF 88T S , TI"!GOTO 1818 

1648 IF C2$="H0D" AND R = l 9R C2$ = ' , W0D M 
AND R = 46 THEN R=6 : G8T6 2848 

1658 IF LEFTS CC4$ , 33 ="TIP" AND R = l THE 

N R=46:G6T6 2846 

1668 IF LEFT$ CC4$,33= ,, TIP" AND R = 46 TH 

EN R=1:G0T0 2849 

1678 M$ = "? ? ? EREHW PMU J" : G6T6 1818 
1688 IF C2$ = ,, LAW" THEN M$=" ! OT NO DLOH 

OT GNIHTON 51 EREHT" : GOTO 1918 
1699 IF C2$="DAL M AND I C19) =R AND R = 6 
THEN R=l:GOTO 2846 
1799 IF C2$ = ,, DAL" AND I C193 =R AND R = 51 

THEN R=25:G0T0 2849 
1719 M$="!!"+C4S+" BMILC T ■ NAC I":GOTO 

1919 
1729 T1=8:F0R T = l TO 22 : IF C2$=RIGHT$ C 
I$CT3,33 AND I CT3 =0 THEN I CT3 =R : T1=T : T 
—22 : IN=IN— 1 

1739 NEXTSIF R = 45 THEN 2799 
1749 IF Tl = 7 AND R = 29 THEN I C11J =29 : M$ 
= " . 5RAEPPASID DNA DNAW 5P0RD DRAZIH" : I 

C73=99:G05UB 29 : GOSUB 3519 : GOTO 2889 

1759 IF Tl = 21 THEN 2849 

1769 IF Tl = 22 AND R = 31 THEN MC33=0:ICT 

13 =99 : I C53 =32: GOTO 1808 

1778 IF Tl=19 AND R=25 OR Tl=19 AND R= 

51 THEN LD=8:G0T0 2840 

1788 IF Tl>8 THEN GOSUB 350O : GOSUB 40: 

GOTO 966 

1790 M$ = "!TAHT EVAH T ' NOD IQ" '• GOTO 181 

6 
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I860 M$=". SRAEPPA5ID NEHT DNA ERUTAER 

C EHT STAE ~ 5RAEPPA NOGARD fl":G05UB 2 

8:G0SUB 3518: GOTO 2888 

1818 IF C2$ = "KAL'" AND R = 31 AND MC33=1 

THEN M$="!THGIRLA EREHT ERUTAERC A S'E 

REHT":GOTO 1848 

1828 IF C2$= M 0IL" AND R=4 OR C2$="QIL" 

AND R-5 THEN I C63 =4 : I C83 =5 : GOTO 2848 
1838 MS = ".LAICEP5 GNIHTON EE5 I" : GOTO 
1816 

1848 G05UB 28 : G05UB 3498 : M$=" ! YRGNUH 5 
KOOL TI":GOTO 1818 

1858 IF C2$ = ,, DAL" AND R = 25 OR C2$ = "DAL 
" AND R = 51 THEN I C193 =8 : LD = 1 : D6 = 6 : GOSU 
B 3588:G0T0 2888 
1868 IF C2$="00B" AND R=6 OR C2$="NEP" 

AND R=6 THEN M$=" . LLAW EHT OT DENIAHC 

SI TI M :GOTO 1818 
1878 IF IN>4 THEN M$ = " . EROM GNIHTYNA Y 
RRAC T'NAC IQ" : GOTO 1818 

1888 T1=8:F0R T=l TO 22:IF C2$=RIGHT$ C 
I$CT3,33 AND I CTJ -R THEN I CTJ =8 : T1=T : T 
= 22 

1898 NEXT:IF Tl=6 OR Tl=8 THEN 1938 
1968 IF R = 31 AND IC18)=8 AND C2$ = ,, TAN ,, 

THEN 1$ tl8)="RETAN FO SSALG" : M$ = I$ C18 
3+" A EUAH UOY":CN=l:GOTO 181 
8 

1918 IF Tl>8 THEN IN=IN+1 : G05UB 3588 : G 
05UB 48: GOTO 968 

1928 M$="!EREH TI EE5 T ■ NOD I" : GOTO 18 
16 

1936 IF IC18J=8 THEN 1$ (163 ="DICA FO 5 
SALG":ICT1)=R:CN=2:G05UB 3588:G05LIB 48 
:GOTO 968 

1948 ICT13=R:M$="!RENIATNOC ON EUAH I" 
:GOTO 1818 

1958 IF C2$ = ,, RC5 M THEN 1959 
1952 IF C2$ = ,, CID" THEN 1978 

1954 IF C2$="00B" THEN 1988 

1955 IF C2$ = ,, IRW" THEN 2166 

1956 IF C2$="GI5" THEN 2155 

1957 IF C2$ = ,, ARG" THEN 2176 

1958 M$="!!!TAHT DAER T'NAC I" : GOTO 18 
18 

1959 IF IC3i=8 AND I C17J =8 THEN M$="' H 
ORRA HCUOT' : 5YA5 LL0RC5" : GOTO 1616 
1968 IF IC33=8 THEN M$=" . EM OT KEERG S 
•TI":GOTO 1818 

1965 GOTO 2268 
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1978 IF IC173=6 THEN M$ = " ' YRANOITCID K 

EERG" :SYAS REV OC" : 1$ C17) =1$ C17) +" KEE 

RG":GOTO 1619 

1975 GOTO 2200 

I960 IF R=6 THEN 2140 

1990 IF IC93O0 THEN 2200 

2000 IF IC13)=0 THEN 2100 

2010 IF R=9 THEN M$=" . TOH NEHW 5PLEH D 

LOG GNIHTEM05":G0T0 1010 

2020 IF R=3 THEN M$ = " . LATEM TAE SEVISO 

RROC":GOTO 1010 

2030 IF R=4 THEN M$=" . DOOH FO EDAM ERA 

SEGDIRB":GOTO 1010 
2040 IF R = 12 THEN M$=" . CIGAM ERA SNOGA 
RD":GOTO 1018 

2050 IF R=29 THEN M$= M . TNATROPMI 51 NO 
ITACINUMMOC" : GOTO 1010 

2060 IF R=5 THEN M$=" . LUOF LLEM5 YLLAU 
5U SLACIMEHC": I C6)=4 : IC8)=5: GOSUB 20 : G 
05UB 3510:G0T0 2880 

207O IF R=30 THEN M$=" ' EGDELWONK FO KO 
OB" .-5DAER REUOC":GOTO 1010 
2O80 IF R=25 AND I C18) =0 THEN M$=" . KNI 
RD GNILOOC A":GOTO 1010 

2090 M$=".TI NI NOITAMROFNI YNA DNIF T 
'NAC I":GOTO 101O 

210© IF Q=0 THEN M$=" ! YTPME 5AN MOOR E 
HT":Q=l:GOTO 1O10 
2110 IF Q=l THEN M$=" ! OG UOY DNUOR DNA 

DNU0R":Q=2:G0T0 1010 
2120 M$="!!WOL DNA HGIH KOOL":GOTO 101 
O 
2140 IF IC18)=0 THEN M$=" . GNIBMILC ROF 

PLEH DEEN ELPOEP" : GOTO 1810 
2150 M$-"'.NI NGI5 T5UM 5T5EUG LLA ■ : 5Y 
A5 KOOB":GOTO 1910 

2155 IF R=45 OR R=19 THEN M$=" . LLEC NI 
DEWOLLA TON ERA 5N0I55E550P" : GOTO 101 

O 

2156 GOTO 221© 

2160 IF R=8 THEN C4$="" : C3$=NA$ : G05UB 

30:NB$=C4$: M$=" . . .EHT NI OG T ■ NOD "+NB 

$:GOTO 101O 

2165 GOTO 2210 

2170 IF R=50 THEN M$=" !! DEID EW DNA DE 

IRT EN":G05UB 20:G05UB 3490 : M$="EUAD & 

KCAJ DENGI5":G0T0 1010 
2180 IF R=14 THEN M$=" . SPLEH EGDELHONK 

FO KOOB EHT":GOTO 1810 
2190 GOTO 2210 
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2288 M$ = "HTI EYAH T'NOD lQ" : GOTO 1016 

2210 M$="!EREH TON 5'TI":G0T0 1O10 
2220 IF C2$="TAW" AND R = 3I OR C2$="TAW 
" AND R=32 THEN M$=" . GNIH5ERFER SAW TA 
HT !HA":GOTO 1018 
2230 IF C2$="TAW" AND 1$ C18) ="RETAW FO 

5SALG" THEN 1$ C18) ="S5ALG" : M$=" ! TOPS 
EHT TIH TAHT":GOTO 1818 

2240 IF C2$="TAW" THEN M$=" ! RETAW YNA 
EES T'NOD I":GOTO 1010 
2250 IF C2$="QIL" AND R = 5 OR C2$="QIL" 

AND R = 4 THEN M$=" ! EHTAERB T ■ NAC I - S 
NRUB TI":GOSUB 20 : GOSUB 3510 : GOTO 2918 

2260 IF C2$="T0P" AND I C18) =0 THEN M$ = 
".PU EM MRAW T'NOW ERIF A , DLOC 05 M'l 
":IC18)=99:G0T0 I01O 
2270 M$="!!TAHT KNIRD T ' NAC IQ" : GOTO 1 

010 

2280 IF C2$<>"NAW M THEN M$=" M TAHT EYA 
N OT TNAH I DLUOM YHW3" : GOTO 1010 
2290 IF ItmOfl THEN M$=" M TAHT EUAH 
T'NOD I":GOTO 101O 

2300 SOUND 2,20,4,15:FOR T=i TO 300:NE 
XTlSOUND 2 J ( I 9!MS= M ! ! TLOB YGRENE NA 
STIME DNAN EHT" : GOSUB 28 : GOSUB 3498 

2318 IF R=12 AND MC1)=1 THEN M$=" . HSIF 
A OTNI SNRUT NOGARD EHT" : M CD =8 : I C22) 
=12: GOSUB 28SG0SUB 3518:G0T0 2888 
2328 M$="MDEGNAHC SMEES GNIHTON , EGNA 
RTS":GOTO 1818 

2338 IF C2$="AIG" AND MC2i=I AND R = 8 T 
HEN 2400 

2348 IF C2$="AIG" AND MC2)=1 AND R=21 
THEN 2488 

2358 IF C2$="ARD" AND MCD=1 AND R=12 
THEN 2428 

2368 IF C2$="ERC" AND MC3)=1 AND R=3i 
THEN M$="!RETAW EHT NI TON M'I":GOTO 1 
818 

2378 IF C2$="ZIW" AND R=29 THEN 2438 
2388 IF C2$ = ,,M THEN M$ = "?TAHW THGIF" : G 
OTO 1818 

2398 M$="!THGIF OT EREH GNIHTON S ' EREH 
TQ":GOTO 1818 

2488 IF IC5J=8 THEN GOSUB 3528:M$="!DE 
H5IUQNAY NEEB SAH TNAIG EHT" : M C23 =0 : GO 
SUB 28SG0SUB 3518:G0T0 2888 
2418 GOTO 2438 
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2426 IF 

TAHW" 
2439 M$ 

I" 
244G IF 
A NEEB 
: GOSUB 
2456 GO 
2468 IF 

1300 

2470 IF 
I Cll) = 
YUB OT 
2480 IF 
EN GOSU 
VIG' 5Y 
2490 IF 
IGHT$CC 
530IGOT 
2500 IF 
H UOY 
2510 GO 
:GOTO 1 
2520 M$ 
OTO 101 
2530 M$ 
=C4$ : GO 
2540 IF 
$="! ! 5R 
: GOSUB 
2550 IF 
IL" AND 
570 

2560 M$ 
I M !GOTO 
2570 M$ 
05UB 34 
NIF YM" 
2580 PR 



IC113=0 THEN M$="??OD I DLUOHS 
GOTO 101O 
="!!NOPAEW THGIR EHT EOAH T ■ NOD 

RNDCO)<0.5 THEN C4$ = " ! ! DEKCATT 
EU'I "+M$:M$=C4$ :G05UB 20 
3520:G0T0 2910 
TO 1O10 

C4$="PLEH" THEN C1$="LEH" : GOTO 

RIGHT$CC4$,l)r"H" AND R = 29 AND 
99 THEN G05UB 2530 : M$=" ' ?DNAW A 

TNAW :DRAZIW": AN=1 : GOTO 1010 

AN=1 AND C2$="5EY" AND R=29 TH 
B 2530:M$="" .DLOG FO GAB A EM E 
AS DRAZIW":GOTO 1010 

RIGHT$CC4$,1)="H" AND R=8 OR R 
4$,i)="H" AND R=21 THEN GOSUB 2 
2520 

C2$="" THEN M$="?YAS OT EM TNA 
D TAHW":GOTO 1010 
SUB 2530 :M$=" ! ! SNEPPAH GNIHTON" 

010 

=".REWSNA TON SEOD TNAIG EHT" : G 

8 

= "! YAKO":GOSUB 20 : GOSUB 3498:M$ 

SUB 20:G0SUB 3490:RETURN 
C2$="RRA" AND R=17 THEN KH=1 : M 

AEPPA ELOHYEK 5SARB A" : GOSUB 20 

3490IGOTO 2888 
CC2$="QIL" AND R = 43 OR CC2$="Q 
R=5) THEN IC6)=4:I C83 =5 : GOTO 2 



■ i 



+C4$+" A EKIL SLEEF T 



WARRIOR'S INUEN 



TORY: 



= ".EM OT 

1010 
="!!SNRUB REGNIF YM" : GOSUB 20 : G 
90:M$= M !GNISSIM EB OT SMEES REG 
: GOSUB 2Q:GQSUB 3510 i GOTO 2888 
INT "*C 

" : PRINT : PRINT 
2598 FOR CH-1 TO 22 ! IF I CCHi =0 THEN M$ 

=I$CCHJ :GOSUB 20SPRINT 

2600 NEKTlPRINT AT C7 , 22 3 ; "PRESS M \ jj A g 

C| TO CONTINUE" ! POKE 764,255 

2610 IF PEEK C7643=255 THEN 2610 

2620 POKE 764,255:G0T0 2880 

2630 IF C2$="MAN" AND R=6 OR C2?="00B" 

AND R~6 THEN 2660 
2640 IF C2$="" THEN M$="??TAHW ETIRW" : 
GOTO 101O 



262 APPENDIX A 

2650 M$="???"+C4$+" ETIRW I DLUOHS YHW 

":GOTO 1816 

2660 INPUT "ENTER YOUR NAME t+";Nft$:lF 

LENCNft$)<2 THEN PRINT "ft" : GOTO 266© 
2670 D7=l:G0T0 2880 

2680 IF CN=1 THEN M$=" . ROOLF EHT OTNI 
5KA05 RETAH EHT" : GOTO 10IO 
2690 IF R<>3 THEN M$ = "HROOLF EHT NI E 
LOH A ETA DICA EHT" : GOTO 1010 
27O0 IF IC12)=0 THEN M$="!KCOL EHT NI 
ELOH A ETA DICA EHT" : Dl = l : GOSUB 20 : G05 
UB 3490:G0T0 2880 

2710 M$=".ROOD EHT NI 51 ELOH A" : PO=PO 
+l:G05UB 20:GO5UB 3490 

2720 IF PO>0 THEN M$=".PLEH DLUOW LENN 
UF EHT KNIHT I" : GOTO 1010 

2730 M$ = "!!PLEH T'NDID TAHT ! EGNART5" : 
GOTO 101O 

2740 IF R<>7 THEN M$=" U EREH ROOLF ENO 
T5 A 51 EREHT":GOTO 1010 

2750 IF D4>0 THEN M$ = " ! ! EREH GUD YDAER 
LA EV'I":GOTO 1010 

2760 M$="! "ROOLF EHT NI ELOH A 51 EREH 
T":D4=l:IC16) =7:G05UB 20:G05UB 3510:G0 
TO 2880 
2770 IF C2$<>"ARB" AND C2$<>"YEK" THEN 

2780 
2775 IF R = 17 AND I C203 =0 THEN KH = 2 : E = 3 
4 :IC20)=99: IN = IN-l: GOTO 2888 
2780 M$="!!KROM T ' N5E0D TI" : GOTO 1010 
2790 ICT13=35:IF Tl=4 THEN ICT1)=19 
280© IF Tlrl4 THEN 1$ CT1) ="HCROT" 
2810 Tl=0:FOR T=l TO 22 : IF ICT)=0 THEN 

T1=T :T=22 
2820 NEXTSIF T1>0 THEN G05UB 3500 ! G05U 
B 40SG0T0 960 
2830 R=47:G0T0 2888 
2840 PRINT :PRINT "OKAY!":IF DK=0 THEN 

G05UB 32O0 
2850 IF IC143O0 THEN DK = 
2860 IF IC183=8 AND LEFTS CI$ C18J , 5) ="T 
5EHC" AND R=l THEN 3418 

2878 L$="":U1$= U2$= IT$="" : CO$="" 

:N=8: 5=8:E=8: W=8:U=8 :D=8 

2888 IF R<=21 THEN ON R GOTO 688,618,5 

8, 78, 98, 118,128,130, 150,160,170, 188,19 

0, 2O0, 210, 220, 230, 240, 250, 260, 270 

289© IF R<=41 THEN ON R-21 GOTO 290,30 

0, 310, 320, 340,350,360,370, 388,390, 410, 

420,430,440,460,470,480,498,500,510 
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2900 ON R-41 GOTO 528, 
570, 600, 619, 620,630 
2910 GRAPHICS O SPOKE 7 
GOSUB 3450SPRINT ATC2, 

HAVE GOTTEN YOUR WARR 
2920 PRINT SPRINT 

ANOTER ONE DOWN 
Y/N)?" SPRINT 
2930 A$=INKEY$:IF 
2940 IF A$="N" THEN 
A YRT OT EKIL DLUOM 
2950 GOTO 2930 

GRAPHICS 2SP0KE 7 



WOU 



A$ = " 
MS 
I" 



2960 

£3,33 

T " 

2970 



2980 

NS? 

2990 

3000 
0,0 



halls of death 



by Jack 

3170SG05U 



RESTORE 



PRINT 



530,540,550,560, 

52,1SP0KE 710,0s 
103 ;"YOU SEEM TO 
IOR KILLED." 
LD YOU LIKE SEND 
TO TRY AGAIN C 

Y" THEN RUN 
="!EMITEMOS NIAG 
".GOSUB 20SEND 

10, ©SPRINT «6,AT 
SPOKE 752,1SPRIN 

Hardy" 

B 3120SG0SUB 345 



»6, AT CI, 
CY/N)" 
A$=INKEY$SIF A$=" 
IF A$="N" THEN GR 
GOTO 2880 



73S"WANT IN5TRUCTI0 



3010 GOTO 2990 

3020 GRAPHICS O S POKE 7 

130SPOKE 752,1 

3030 PRINT SPRINT " YO 

gned the duty of giv 

to a warrior .": PRINT 
3040 PRINT " The warri 
explore the Halls of D 
ible to" 
3050 PRINT "retrieve t 

RE CHEST Which is i 

mo r t a 1 s . " 
3060 PRINT SPRINT " Th 
two-way coMMunica- tio 
t everything" 
3O70 PRINT "he sees bu 



g until 

3088 PRINT 
a Magic Ri 
chest visi 

3898 PRINT 

3188 PRINT 

8 BEGIN 



SS RETURN 



instructed 

SPRINT "The 
ng whi 
ble" 

"to its own 
PRINTSPRINT 
TRANSMISSION 
1"SGET A$ 
3110 GOTO 2888 
3120 DIM I$C233 , I C23) , 
C31J :D1=0SD2=0SD3=O: D4 
0SD8=8:G1=8:KH=8SLD=8 



Y" THEN 3828 
APHICS 8SP0KE 71 



10,13OSPOKE 712, 

u have been assi 
ing instructions 

or's task is to 
eath and if poss 

he GOLDEN TREASU 
nvisible to MOSt 

e warrior is in 
n and will repor 

t will do nothin 

by you." 
re are ruMors of 
ch will Make the 

er . " 
" WHEN READY T 



DI$C6) ,MC33 ,UOC$ 
=0 :D5=O:D6=0SD7= 
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3139 RANDOMIZE : FO 

T:CN=0:R=l:TT=9:Q 

3146 FOR T=i TO 2 

3 :NEKT T 

3159 FOR T=l TO 6 

$=" • • " 

3155 FOR T=l TO 3 

3169 CL$="t 

":CL1$=" 
■ ■ 

3179 DATA SEHCTAM 
24,YEK NORI,l,DRO 

GAB,4,DICA,99 
3189 DATA K00B,39 
NUF,3,GNIR CIGAM, 
2,YEK REULIS,99 



3199 
AL,9 
S,E, 
3195 
HT,T 
,GIF 
3197 
3299 
R = 35 
3219 
9: PR 



DATA 

9, YEK 

H,U,D 

DATA 

EG,KA 

,EPS, 

DATA 

I$C1 

THEN 

POKE 

INT " 



YRANOIT 
SSARB,3 

OG,LNU, 
T,OOL, AK 
YAS,EEF, 

IRW,GIS 
43="HCRO 

RETURN 

764, 255 
IS 



R T=l TO 3 : MCT) =1 : NEK 

=9 :IN=9 

2IREAD I$CTJ SREAD I CT 

:READ DISCT) :NEKT:EYE 

1 SREAD VOC$ CT) : NEKT 

ft 

: RETURN 

i46,LEV0HS,34,LL0RCS, 

WS,99, DICA, 99,DL0G FO 

, SSALG,16,DNAN, 99,LEN 
99,HCR0T,46, YEK DLOG, 

CID,2 7,N0IT0P,25,REDD 
3,DRA0B,29,HSIF, 99, N, 

EPO, MUJ,ILC,UIG,ORD,R 
E,LEH, AER,IRD, VAH,LIK 
UOT, UNI,TKE,GIL 
, UOP, GID,SNI,ESU 
T":IF R=l OR R=46 OR 



:POKE 712,9:P0KE 719, 



I CAN'T SEE - NHERE A 



M I? 



3229 

EECE 

3239 

3249 

EP - 

159: 

3259 

EYE$ 

3339 

69 

3349 

3359 

3369 

2,16 

2,16 

3379 

AND 

359 
":RE 
3389 

THE 
:G05 



PRINT ATC16 

FOR EY=1 TO 
15PRINT ATCE 
NEKT T:NEKT 

FOR EYE=15 
SFOR T=l TO 

NEKT EY:IF 



PRINT 
FOR T = 
POKE 7 
) CO$:I 

POKE 7 
ICI)=9 
9:I$C14 
TURN 

IF LEF 
N M$="! 
UB 29:G 



AT C16 
1 TO 
52,6: 
F LEN 
":G 
52, 1 : 
AND I 
)=I$C 

T$ CCO 
•SEHC 
05UB 



2SF0R EYE=17 TO 15 ST 
YE, 8) ;EYE$:FOR T=l TO 
EYE 

TO 17SPRINT ATCEYE,8); 
1585NEKT T : NEKT EYE 
PEEKC764) <>255 THEN 33 

8J * " — — — •' 
299: NEKT5GOTO 3249 
POKE 764,255!INPUT AT C 
CCO$) <3 THEN PRINT AT C 
OTO 3369 

IF LEFT$CC0$,3)= ,, LIG" 
C143=9 THEN DK=1 ! GOSUB 
14}+" GNINRUB 



$,3)="LIG" AND 
TAM YNA EUAH T 
3499:G0T0 3369 



I CD <>9 

NOD IQ" 
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3399 IF LEFT$CC0$,33="LIG" AND I C14J <> 
6 THEN M$="UHCROT A EOAH T ■ NOD IQ" i GO 
SUB 20:G0SUB 3490 : GOTO 3360 

3400 M$ = "MKRAD EHT NI SGNIHT OD OT 
SUOREGNAD S ' TI" : GOSUB 20:G05UB 3519:G 

OTO 2910 

3410 GRAPHIC S 18: PRINT »6 , AT C3 , 43 J "GEE 
""SPRINT »6, ATC6,53 j "you WO 



GRATULATIONS 



n!" 

3420 

60 TO 

2,1*1 

3430 

NEXT 

3440 

ANKS 

HTSEN 

3450 

3460 

,8:F0 

1 = 1 
3470 
3480 
60,85 
60,0, 
3490 

CL$! 
3500 
:RETU 
3510 
N 

3529 
DC053 
,0, 8, 
3530 
NEXT 



FOR L = l TO 3:F0R T = l TO 10 : FOR S = 
80:S0UND O, S, 10,8:NEKT 5 : POKE 71 
0:NEXT T:SOUND 0,O,O,0 
POKE 712,0:F0R T=l TO 500 : NEXT T: 
L 

GRAPHICS 18IPRINT »6 , ATC0,5);"TH 
FOR THE GAME!":FOR T=l TO 4O0O:NE 
D 

RESTORE 3480 

READ A,B:IF A>1 THEN SOUND O,A,10 
R 1=1 TO B:NEXT:SOUND 0,0,0,0:FOR 
TO 40:NEXT:G0T0 3460 
RETURN 

DATA 100,360,100,240,100,60,100,3 
, 480, 90, 3 60, 10O, 240,105,120, 100,3 
O 

FOR T=l TO LEN CM$)*10O : NEXT : PRINT 
PRINT CL1$:C0$="":RETURN 
PRINT "OKAY!":FOR T=i TO 150:NEXT 
RN 
FOR T=l TO LEH CM$3*100 : NEXT : RETUR 

FOR L=l TO 20: SOUND , 20 , INT C8*RN 

+1,15:F0R T=i TO 8INEXT t : SOUND 



FOR T=l TO INT C80*RND C03 ): NEXT T: 

L : RETURN 



MAD BOMBER 



Objective: to find the bomb container, get it open and dismantle 
the bomb before it explodes. The bomb is inside a house and 
there is a different time limit for each level of play. The various 
objects necessary to dismantle the bomb are randomly placed 
in the six main rooms of the house. It is a unique game each 
time it is played since the objects must be used in a certain order. 
The program requires Atari BASIC and 8K from cassette or 
16K from disk. 



5 G05UB 1900 

7 FOR G = l TO 18!50UND 8,88,2,4iF0R D = l 
TO 25NEXT DsSOUND 8,8,8,8:F0R D=l TO 

55:NEXT DiNEXT G 

8 POKE 718, R00M*16+2 ! POKE 712,PEEKC718 
3 ' N— 8 " S— 8 " E — ' W— 8 

9 ' N = N CR00M3 7s = S CR00MJ : E = E CR00M3 : W=WCR0 
0M3 

188 PRINT "*" 

118 PRINT " 



THE "jLOCA 



THERE ARE DOORWAYS GO 



128 PRINT JPRINT "YOU'RE IN 

TI0N$CR00M*14-13,R00M»I4J 

138 PRINT : PRINT \\V\\\\\VV\V\\\\VWi 

148 P RINT 'tKJmIuT 

euaww 11 

150 PRINT !IF N THEN PRINT 

IF 5 THEN PRINT "SOUTH 

IF E THEN PRINT "EAST, 

IF W THEN PRINT "WEST, 

PRINT ■•«■* " 

PRINT 



168 
178 
188 
198 

238 



NORTH, 



ii • 



PRINT 



24 8 PRINT - " y"""«fc-"«"' 



i«ii 



ITEMS YOU SEE 



258 PRINT IFOR G=l TO 18 

268 IF ITEMCG)=R00M THEN I$=ITEM$ CG*li 

-18,G*li) :G0SUB 278IPRINT 1$;", ";:I$= 



265 NEXT GlGOTO 275 
278 IF I$CLENCI$3 , LEN CI$) 3 =" 
=I$Cl,LENCI$3-li :G0T0 278 
272 RETURN 



" THEN 1$ 



267 



268 APPENDIX A 



275 PRINT 
280 PRINT 



PRINT "i 



illinium 



INSTRUCTIONS^ 



298 PRINT " 

294 TIME=PEEKC19)/14:IF TIME>=MAXTIME 

THEN 958 

296 IF TIME>=MAXTIME-1 THEN SOUND 1,9, 

2,1 

300 TRAP 3000 ;MESSAGE$="":SUBME5SAGE$= 
■ ■■■ 



310 I 
THEN 
320 F 
THEN 
330 N 
THAT! 
340 
350 
355 
360 
365 
370 
375 
380 
390 
ION 
400 
E$CG, 
G + 1,L 
410 N 
415 I 
420 F 
ABULA 
TO 44 
430 N 

MY uo 

440 
0,520 
730,7 
450 F 
IR$CG 
455 I 
C1)=R 
460 N 
: GOTO 
470 F 
ITEM$ 
90 
488 N 



NPUT MESSAGESsIF LEN CMESSAGE$3l> 1 
480 

OR G=l 
DIR=G: 
EKT G:P 
"SGOTO 
N DIR G 
F N THE 



OTO 
F S 
OTO 
F E 
OTO 
F H 



390 
THE 
390 
THE 
390 
THE 



TO 4:IF DIR$CG,GJ=MES5AGE$ 

POP :GOTO 340 

RINT "I DIDN'T UNDERSTAND 

3050 

OTO 350,368,370,388 

N ROOM=N:GOTO 7 



RINT "V 
SGOTO 3 
OR G=l 
G)=" " 
ENCMESS 
EXT G 
F TIME> 
OR G = l 
RY$CG*3 


EKT G:P 
CABULAR 
N VOC G 
,688,68 
78,838 
OR G = l 
,G3 THE 
F SUBME 
OOM THE 
EXT GIP 

3050 
OR G = l 
CG*11~1 



N R00M=5:G0T0 7 

N R00M=E:G0T0 7 

N ROOM=W:GOTO 7 

OU CAN'T GO IN THAT DIRECT 

5 

TO LENCMESSAGES) : IF MESSAG 

THEN SUBMESSAGE$=MESSAGE$C 

AGE$)3 :POP :GOTO 415 

=MAXTIME THEN 950 

TO 18:IF MESSAGE$C1,3)=U0C 

-2,G*3) THEN UOC=G:POP : GO 

RINT "THAT IS NOT PART OF 

Y!"!GOTO 3858 

OTO 450,450,450,478,470,52 

0,600,670,670,710,710,730, 

TO 4:IF SUBMESSAGE$C1,1)=D 
N DIR=G:POP SGOTO 340 
SSAGE$Ci, 3)="CHA" AND ITEM 
N 710 
RINT "YOU CAN'T GO THERE!" 

TO 10:IF SUBMESSAGE$ CI, 3) = 
0,G*ll-8) THEN POP SGOTO 4 



EXT GsPRINT "YOU CAN'T TAKE A ";S 
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UBMES5AGE5 ! GOTO 3850 

490 IF ITEMCG)=10 THEN PRINT "YOU ALRE 

ADY HAUE IT!":G0T0 3950 

500 IF ITEMCG)<>ROOM THEN PRINT "THAT 

ITEM 15 NOT HERE!*':GOTO 3050 

510 IF SUBMESSAGE$="KEY" AND CCHAIROl 

OR ITEMC1) OR00M) THEN 518 
515 ITEMCGJ=10:GOTO 9 

518 PRINT "IT'S TOO HIGH. YOU NEED TO 
STAND ON SOMETHING! t" : GOTO 3050 
520 FOR G=l TO 10 : IF SUBME5S AGES CI , 3 J = 
ITEM$CG*11-10, G*ll-8) THEN POP : GOTO 5 
40 

530 NEXT G:PRINT "IT LOOKS LIKE A ";SU 
BMESSAGE$; "! !" : GOTO 3050 

540 IF ITEMCGiOROOM AND ITEMCG)<>iO T 
HEN PRINT "IT'S NOT HERE TO LOOK AT!": 
GOTO 305O 

545 ON G GOTO 590,590,550,560,570,580, 
590,590,585,590 

550 PRINT "THERE IS A KEYHOLE !": GOTO 3 
050 

560 PRINT "IT WILL HAVE TO BE FORCED 
PEN!":G0T0 305O 

570 PRINT "SCREWS HOLD THE LID CLOSED! 
":GOTO 305O 

580 PRINT "YOU FIND A PAIR OF SCISSORS 
!":ITEMC103=ROOM:FOR D=i TO 2O0:NEKT D 
JGOTO 9 

585 PRINT "THE WIRES NEED TO BE CUT!": 
GOTO 305O 

590 PRINT "I SEE NOTHING SPECI AL ! " : GOT 
3O50 

60O FOR G=3 TO 6 ! IF SUBMESSAGE$ CI , 3) =1 
TEM$CG*ll-10,G*ll-8) THEN POP : GOTO 61 
O 

605 NEXT GiPRINT "YOU CAN'T OPEN THAT! 
":GOTO 3050 

610 IF ITEMCGJOROOM THEN PRINT "IT'S 
NOT IN THIS ROOM!"!GOTO 3050 
612 IF ITEMCG+43 THEN PRINT "IT'S ALRE 
ADY OPEN!":GOTO 3858 
615 ON G-2 GOTO 620 , 630 , 640 , 650 
620 IF ITEMC2J=10 THEN ITEM C7) =ROOM : GO 
TO 9 

625 GOTO 660 

630 IF ITEMC7)=18 THEN ITEM C8) =ROOM : GO 
TO 9 

635 GOTO 660 
640 IF ITEMC8J=10 THEN ITEM C9) =ROOM : GO 
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TO 9 

645 GOTO 660 

650 PRINT "OKAY!":GOTO 3050 

660 PRINT "YOU NEED HELP TO OPEN THAT! 

":GOTO 3059 

670 FOR G=l TO 10 ! IF SUBMESSAGES tl , 3) = 

ITEM$CG*ll-10,G*ll-8) THEN POP ! GOTO 6 

90 

680 NEXT GsPRINT "DROP WHAT !!!!"! GOTO 

3050 

690 IF ITEMCGJ=10 THEN ITEM CG3 =R00M : GO 

TO 9 

700 PRINT "YOU'RE NOT CARRYING IT!!":G 

OTO 3050 

710 IF SUBMESSAGE$tl,3J="CHA" THEN 722 

715 IF MESSAGES tl, 3) ="STA" AND SUBMESS 

AGE$t4,6)="CHA" THEN 722 

720 PRINT "YOU CAN'T "; MESSAGES tl , 53 j " 

ON THAT! !":GOTO 3050 
722 IF ITEMtliOROOM THEN PRINT "IT'S 
NOT HERE!"'.GOTO 3050 
725 CHAIR = 1'.G0SUB 3060:G0T0 3O50 
730 FOR G = l TO 10 ! IF SUBMESS AGE$ tl , 3) = 
ITEM$tG*li-10,G*ll-8) THEN POP : GOTO 7 
50 

740 NEHT GrPRINT "IT FEELS LIKE A ";SU 
BMESSAGE$;" TO ME!":GOTO 3050 
750 IF ITEMtGJOROOM THEN PRINT "IT'S 
NOT HERE TO TOUCH !"! GOTO 3050 
755 IF SUBMESSAGEStl, 3) ="BOM" THEN PRI 
NT "I FEEL SOME NIRES ! " : GOTO 3050 

760 GOSUB 3O60:GOTO 3050 

770PRINT "^" : PRINT "I ■ ■ 1 1 1 1 1 1 1 gjJUBi 

L7i]IB!M'JaM I I I I I I I I ■ ■" : PRINT : FOR G = l T 

10 

780 IF ITEMtG)=10 THEN PRINT ITEMS tG*i 

1-10,G*11J 

790 NEXT G 

808 POSITION 5,22:PRINT "TOUCH E3EEB1 

HITTTM TO CONTINUE" 

818 OPEN »1, A, O, "K: ": GET ttljKHF K<>32 

THEN CLOSE ttl : GOTO 800 
820 CLOSE ttl :GOTO 9 

830 IF SUBMESSAGE$tl,3) <>"WIR" THEN PR 
INT "I CAN'T CUT THAT !": GOTO 3050 
840 IF ITEMt9)OR00M THEN PRINT "THE B 
OMB IS NOT HERE!":GOTO 3050 
845 IF ITEMtlOJOlO THEN PRINT "YOU DO 
N'T HAUE ANY SCISSORS !": GOTO 3050 
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858 
■ i 



GRAPHICS IMPOSITION 4,I:PRINT «6 J 
ii 



YOU DID IT! 



4050:FOR D = l TO 7 : READ SO 



860 RESTORE 

DELAY 

870 SOUND 1, 5O,10,10:POKE 

2=1 TO DELAY:NEXT D2 : NEXT 

Q Q 

880 IF LEVEL=3 THEN POSITION 



712,S0:F0R D 
D.'SOUND 1,0, 



2,2:PRINT 



POSITION 
GOTO 965 



3,3:PR 



»6;"Y0U HAVE 
«6J"PR0M0TED 



BE 
TO 



»6;"Y0U SURVIVED THE": 
INT »6J"HIGHEST LEVEL": 
898 LEVEL=LEVEL+1 
900 POSITION 2,3:PRINT 
EN":POSITION 1,4:PRINT 

LEVEL "jLEVEL 
910 FOR DELAY=1 TO 100 
920 GOSUB 1130:GOTO 7 
950 SOUND 1, O, O, I GOSUB 
=1 TO 20:NEKT DELAY 
960 GRAPHICS 18 : POSITION 1,3:PRINT «6 ; 



NEXT DELAY 
2000SFOR DELAY 



ii 

965 
ike 
in? 
970 
AND 



ou were too late! 



POSITION 1,5:PRINT «6;"would you 1 
to":POSlTlON 2,6:PRINT 86j"try aga 
Cy/n)" 

OPEN B1,4,0,"K:":GET »1,K:IF K<>78 
K<>89 THEN CLOSE ttl : GOTO 978 

ttlilF K = 89 THEN GOSUB 1130 : G 



1,8:PRINT »6;" 
DELAY=1 TO 250 



THANKS FOR 



NEXT DELAY 



988 CLOSE 

OTO 7 

990 POS ITION 

BDEEniE ": F0R 
SEND 

100O FOR G=8 
1O10 GRAPHICS 
WINDOW 
1020 POSITION G+3,4:? »6;"wad 

SOUND 0,RND CO3*255,10, 10 

FOR DELAY=1 TO 10 : NEXT DELAY 

NEXT G 

DIM MESSAGES C30J : MESSAGES CI , 13) =" 



TO 2 STEP -1 
G+16:REM GRAPHICS 



WITH N 

bOMber" 



1030 

1035 

1040 
1050 



BY JACK HARDY 



1O70 FOR G=l TO 13 

1088 POKE 709, INTC16*RNDC0))*16+8:POSI 

TION G+3,18:? «6;ME55AGE$CG,GJ 

1090 SOUND 0,80,10,4 

1095 FOR DELAY=1 TO 5 i NEXT DELAY : SOUND 

0,0,0,O:FOR DELAY=1 TO 5:NEXT DELAY 
1100 NEXT G 

1110 FOR DELAY=1 TO 100 : NEXT DELAY:GOS 
UB 200O:LEVEL=1 

1120 DIM ITEMC10) ,I$C14J ,ITEM$C110) ,DI 
R$ C4) , V0CABULARYSC54) , LOCATIONS C112) ,S 
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U6ME 
1125 
1138 
C2) = 
SCI, 
1146 

"! L 
1155 
S - 
1166 
EMS C 
1178 
1188 
CG*3 
1185 
LOCA 
) =D2 
1198 

G = 7 
1288 
8)) + 
) =1 : 
1218 
1228 
1236 
EGIN 
1235 
LEVE 
1246 
1256 
+ 1:1 
1266 

123 
1276 
1288 



SSAGES 
DIM N 
ITEMS 

ITEMS: 

38) 
LOCAT 

OCATIO 
REM 

C6MMAN 
RE5T6 

G*ll~l 
DIRS = 
F6R G 

-2,G*3 
F6R G 

TI6HSC 

:ECG) = 
FOR G 
TO 18 
FOR G 

1 !I=IT 

NEXT G 
1$ = "" 

POSIT 
POSIT 



C38) 

C8) , SC8) 
Cl)=" ": 
I$=ITEM$ 

ION$Cl) = 
N$C2)=L0 

_READ 
DS 
RE :FOR 
6,6*11)= 
"NSEM" 
=1 TO 18 
)=I$C1,3 
=1 TO 8: 
G*14-13, 
D3: WCG) = 
=1 TO 6: 
:ITEMCG) 
= 6 TO 2 
EMCJ) :IT 

: CHAIR=6 
ION 2,8: 
ION 2,9: 



,EC8) , WC8) 

ITEMS C118)= ITEMS 

CI, 11) :MESSAGE$=ITEM 

LOCATIONS C112)=" 

CATIONS 

IN ITEMS - DIRECTION 

G=l TO 18:READ I$:IT 
I$:NEXT G 

:READ I$:UOCABULARYS 

) :NEXT G 

READ IS.D1,D2,D3,D4: 

G*14) =1$: N CG) =D1: SCG 

D4:NEXT G 

ITEMCG)=G:NEXT G : FOR 

=8!NEXT G 

STEP -l: J=INT CG*RNDC 

EMCJ)=ITEMCG) :ITEMCG 

:R00M=8 

PRINT tt6j"r3aEBB" 
PRINT »6;"START TO B 



2,18:PRINT »6;"SELECT / 



POSITION 

L ";LEUEL 
IF PEEKC53279)=6 THEN 
IF PEEK C53279)=5 THEN 

F LEUEL>3 THEN LEUEL=1 
FOR DELAY=1 TO 18:NEXT 

5 
IF LEUEL=1 THEN MAXTIME=15 
IF LEVEL=2 THEN MAXTIME=5 



1278 
LEUEL=LEUEL 

DELAY : GOTO 



1298 IF LEVEL=3 THEN MAXTIME=2 
1388 GRAPHICS 8 5 POKE 718,8:P0KE 752,1 
1318 POSITION ll,li:PRINT "THE GAME IS 
AFOOT!":POKE 18,8:P0KE 19,8:P0KE 28,8 
■ RETURN 

2886 DLI5T=PEEKC566)+256*PEEKC561) : G=P 
EEKC712) 

2816 FOR H=15 TO 8 STEP -8 . 25 : SOUND 8, 
50,6,H:C0=1-C0 : POKE 712, CO* C4*I6+6) : PO 
KE 718,PEEKC712) : POKE DLIST,112*C0 
2626 FOR DELAY=i TO 5:NEXT DELAY ! NEXT 
N 

2638 POKE DLIST,112:P0KE 712,G:P0KE 71 
6, G: RETURN 
3868 PRINT "PLEASE SAY THAT AGAIN !": TR 
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GP 46686 „ 

3656 FOR G=l TO 266 : NEXT G : PRINT "tttQ 

□GDn3":GOTO 366 

3666 PRINT M OKAY!":RETURN 

4866 DATA CHAIR, KEY , CHEST , CAB] 

BASKET, CROWBAR, SCREWDRIVER, B0» 

RS 




ESCAPE 



Objective: to escape from the top floor of a building. You awaken 
in a dark room. The last thing you remember is being hit on the 
head and thrown into a car. The only thing on your mind now is 
escape. 

The program requires PILOT and 32K with cassette or 48K 
with disk. 



5 U:*INITIALIZE 

16 *R00M1 

15 U:*BR 

28 C:$AREA=BEDROOM 

25 ClS*E=2 

38 C:8S=3 

35 J!«P 

48 *R00M2 

45 Ui*BR 

58 U:*CP 

55 C:$AREA=HORKSHOP 

68 C:$OBJECT= CABINET 

65 CCGB1561=1) :$OBJECT= OPEN CABINET 

78 C:»H=i 

75 J:*P 

88 *R00M3 

85 U:*HH 

98 U:»CM 

95 U:*HD 

188 C: $6REA=HALLWAY 

185 C:»N=1 

118 C:«5=5 

115 C:«E=4 

128 J:*P 

125 *R00M4 

138 U:«HW 

135 U:*CE 

148 U:*HD 

145 C:$AREA=HALLMAY 

158 C:«5=-l 

155 CC6B1559=i) :»S=6 

168 C:»W=3 

165 J:*P 

178 *R00M5 

175 U!*BR 

188 U:*PICPIC 

185 Ci$AREA=OFFICE 

275 



276 APPENDIX A 

196 C:S*N = 3 

195 J:*P 

296 *R00M6 

265 U:*SR 

216 C:$AREA=ELEUATOR 

215 C:»N = 4 

226 C:»D=13 

225 J:*P 

236 *R00M7 

235 U:*BR 

246 U:»BOOKCPIC 

245 C:$AREA=LIBRARY 

258 C:ttE=9 

255 C:$OBJECT= BOOKCASE 

266 CCGB1562=1> :I«S = 11 

265 CCGB1562=1) :$OBJECT= OPEN B00KCA5E 

276 J:*P 

275 *R00M8 

286 U:*BR 

285 U!*CP 

296 C:$AREA=KITCHEN 

295 C:»S=18 

386 C:$OBJECT= CABINET 

365 CCGB1563=1) : $OB JECT= OPEN CABINET 
318 J:«P 

315 *R00M9 

326 U:*ELBOH 

325 Ui*DOGPIC 

338 C:$AREA=HALLNAY 

335 C:$OBJECT= DOG 

348 C:tt5 = I2 

345 C!»M=-1 

358 CCGB1557=i) :«W=7 

355 CCGB1557=1> :$OBJECT= NOTHING 

366 C:»E=18 
365 J:*P 
378 *R00M18 
375 U:*HW 
388 U:«CE 

385 C!$AREA=HALLNAY 

398 Ll:*HD 

395 C:»S=13 

466 C:tSH=9 

465 C!»N=8 

418 J:*P 

415 *ROOMli 

428 U ' WBR 

425 C:$AREA=MAID'S ROOM 

438 C:»N=7 
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435 C:8D=28 

448 C!$OBJECT= LAUNDRY CHUTE 

445 J!»P 

458 «R00M12 

455 U:*BR 

468 C:$AREA=BEDROOM 

465 C:«N=9 

478 J!*P 

475 *R00M13 

488 U:*SR 

485 C:$6REA=ELEUAT0R 

498 C:»N=i0 

495 C:«U=6 

588 J: MP 

585 MR0CM14 

518 U:*BR 

515 C:$AREA=SHOP 

528 C!»5=17 

525 C:«E=15 

538 J!*P 

535 *R80M15 

548 U:*BR 

545 C:$AREA=MASTER BEDROOM 

558 CsttH=14 

555 C:«E=16 

568 j:*p 

565 *R00M16 

578 U:*BR 

575 C:$AREA=BEDROON 

588 C!»W=15 

585 J:»P 

598 WR00M17 

595 U:*HH 

688 U:*CW 

685 U:*HD 

618 C:$AREA=HALLHAY 

615 C:8N=14 

628 C:«3=28 

625 C:»E=18 

636 J:*P 

635 *R00M18 

648 U:*HW 

645 U:*HD 

658 C:$AREA=HALLHAY 

655 C:»E=19 

668 C:t*H=17 

665 C:ttS=-l 

678 CCGB1566=1) :«S=21 

675 J!»P 

688 *R00M19 
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685 U:*HW 

698 U:*HD 

695 U:*CE 

709 C:$AREA=HALLWAY 
705 C:ttH=18 

710 C:ttS=-l 

715 CCGB1564-1) :ttS=22 

720 J:*P 

725 *ROOM20 

730 J ' WBR 

735 C:$AREA=LAUNDRY ROOM 

740 C:»H=-1 

745 C:«U=11 

750 CCQB1565=i) :ttN=17 

755 C!$OBJECT= DIRTY CLOTHES 

760 J:*P 

765 *R00M21 

776 U:»BR 

775 C:$AREA=BUTLER'S ROOM 

780 C:»N=18 

785 J!*P 

798 *R00M22 

795 U:*SR 

880 C:$AREA=ELEUATOR SHAFT 

805 CittD=27 

810 C:8N = I9 

815 J:*P 

820 *R00M23 

825 U:*BR 

830 U:*SINKPIC 

835 C!$AREA=JANITOR'S WORKROOM 

840 C:$QBJECT= SINK 

845 C!tSE = 24 

850 C!ttS = 26 

855 J:*P 

860 *R00M24 

865 U:*BR 

870 C!$AREA=STORAGE 

875 C:«S=27 

880 C:t*H=23 

885 J:*P 

890 *R00M25 

895 U:*SR 

900 U:*FIREPIC 

905 C:$AREA=CHIMNEY 

910 C:«U=31 

915 C!«E=26 

920 J:*P 

925 «R00M26 

930 U:*BR 
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935 U ! *FIREPIC 

948 C:$AREA= JANITOR'S QUARTERS 

945 C:$OBJECT= BURNING FIREPLACE 

956 C:«N=23 

955 C:»W=-1 

96B C CGB1567=i) !«W=25 

965 CCQB1567=i) :$OBJECT= FIREPLACE 

976 J:*P 

975 *R00M27 

986 U!*SR 

985 C!$AREA=ELEUATOR SHAFT 

996 C;ttN=24 

995 C:ttU=22 

1666 J:*P 

1865 *R00M28 

1616 U:*BR 

1615 U:*GORILLAPIC 

1626 C!$AREA=ZOO 

1825 C!»S=32 

1638 C:$OBJECT= GORILLA 

1835 CCGB1568=1J : SOB JECT= SLEEPING GOR 

ILLA 

1848 C:«E=-1 

1645 CCGB1568=1) :«E=29 

1656 J:*P 

1855 *R00M29 

1868 U:*ELBOM 

1865 Ci$AREA=HALLHAY 

1678 C!»W=28 

1875 CittE=34 

1888 J:*P 

1885 *R00M39 

1898 U:*BR 

1895 C:$AREA=MAIN LOBBY 

1186 C:ttN = 58 

1185 CitSS = 34 

1118 J:*P 

1115 *R00M31 

1128 U!*5R 

1125 U:»FIREPIC 

1136 Ci$AREA=CHINNEY 

1135 C:«E=32 

1148 CittD = 25 

1145 J:*P 

1158 *R00M32 

1155 U:*BR 

1168 UtMFIREPIC 

1165 C:$AREA=LOUNGE 

1178 C:$OBJECT= FIREPLACE 

1175 C:»N=28 
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1188 
1185 
1198 
1195 
1268 
1285 
1218 
1215 
1228 
1225 
1238 
1235 
1248 
1245 
1258 
1255 
1268 
1265 
1278 
1275 
1288 
1285 
1298 
1295 
1388 
E CA 
1385 
1318 
1315 
1328 
1325 
1338 
1335 
1348 
1345 
1358 
1355 
1368 
1365 

1378 
1375 
1388 
1385 
1398 
1395 
1488 
1485 
1418 
1415 
1428 



C:«E=33 

C:ISH=31 

J i *P 

*R00M33 

U:*BR 

C:$AREA=FOOD 

C:ttS=35 

C:ttW=32 

CCGB155208) 

J : +&P 

*R00M34 

U:*HW 

U!*CE 

C:$AREA=HALLHAY 

C:«W=29 

c:»H=-i 

CCGBi569=i) :»N=38 

J : *P 
*R00M35 
U:*SR 
Ll!»MCP 

C:$AREA=BATHROOM 
C:8N=33 
C!$8BJECT= 
CCQB1578=1) 
BINET 
J:*P 
*P 

UCGB1558=8) 
TlKLOCATION 



LOCKER 



GB1552=33 



MEDICINE CABINET 
:$OBJECT= OPEN MEDICIN 



TC»F = 4) 
T(ttF=3) 
TC»F = 2) 
TCttF = l) 
TC»F=8) . 
U t«N<>8) 

uc»s<>8) 

UC»E<>8) 
UC»H<>8) 

ucmoe) 
uc«y<>8) 
u:»pl 
C:«L=l 

C:«M=1548 
C:«I=8 

C:$ITEMS=$OBJECT 
A!=$ITEM5 

m: nothing 
cn:»i=«i*i 

U:*ITEM5 



:*DARK 
: $AREA 
►t+4TH FLOOR 
►►t*3RD FLOOR 
►►t*2ND FLOOR 
►►t+lST FLOOR 
►►tBASEMENT 
!*NORTHDOOR 
:*SOUTHDOOR 
:«EA5TD00R 
:*HESTDOOR 
:*DOHNARROH 
:*UPARROH 
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1425 TsVISIBLE ITEMS:\ 

1439 T!$ITEMS 

1435 C! QB764=255 

1440 Tt BnmEci MBfl \ 

1445 A: 

1456 M: NOR, SOU, EAS, MES, UP , DOM, 

1455 JM:*N0RTH,*S0UTH,*EAST,*ME5T,*UP, 

*DOHN 

1460 M:TAK,GET,DRO,GIV,UNL,OPE,LOQ,EXA 

^LIGjINS^USE^PUS^O ,INV,THR,WEA 

1465 JM:*TD,*TD,*TD,*TD,*OPEN,*OPEN,*L 

OOK,*LOOK, FLIGHT ,*USE,*USE,*PUSH ,*G0,* 

INVENTORY ,*THROW,*WEAR 

1470 T:«El DON'T UNDERSTAND THAT!! 

1475 PA:90 

1480 J!*P 

1485 *ITEMS 

1490 C:ttM=ttM+l 

1495 UC«R=QB»M3 :*VISIBLE 

1500 JC«M<1557) :*ITEMS 

1505 E * 

1510 ^INVENTORY 

1515 C!$ITEMS= NOTHING 

1520 C:«I=0 

1525 C:«M=1541 

1530 C:8X=-16 

1535 C:«Y=8 

1546 GRiCLEAR 

1545 J:*INV2 

1550 *INV2 

1555 UCQBttM=0) !*VISIBLE 

1560 C:»M=«M+1 

1565 JCt*M<1557) :*INV2 

I570 T:IS$ITEMS 

1575 TCGB1549=50) : HEARING GLOVES 

1580 Jl«PRESSKEY 

1585 ^VISIBLE 

1590 CC»I>0) :$ITEMS = $ITEMS$COMMA 

1595 C!ttI=«I+l 

1600 C:ttV=ttM-1540 



1605 CCttV=l) 

1610 CC«V=25 

1615 C(ttU=3) 

1620 CC»V=4) 

1625 CCttV=5> 

1630 ccm>=6> 

1635 C C»U=7) 

1640 CC»V=8J 

1645 C(ttM=9) 



$ITEM= FLASHLIGHT 

$ITEM= FUSES 

$ITEM= PAINTING 

$ITEM= DOG BISCUITS 

$ITEM= BONE 

$ITEM= BROHN KEY 

tITEM= CROWBAR 

ITEM= BLUE KEY 

$ITEM= GLOVES 



1650 C C«V=10) : $ITEM= MATER 
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1655 
1666 
1665 
1676 
1675 
1686 
1685 
1690 
1695 
1766 
1785 
1718 
1715 
1728 
1725 
1738 
1735 
1748 
1745 
1758 
1755 
1768 
1765 
1778 
1775 
1788 
1785 
1798 
1795 
1888 
1885 
1818 
1815 
1828 
1825 
1838 
1835 
1848 
1845 
1858 
1855 
1868 
1865 
1878 
1875 
1888 
1885 
1898 
1895 
1988 



CCttU-il) 
CCOU=12) 
CC8U=13) 
CC8U=14) 
C«tU=15) 
CCttU=16) 
CCttI = l) : 
cc»i>d : 

U:«DRAMP 

E: 

•DRAMPIC 

C!»U=»M- 

U(«U=i) 

UC»U=2) 

UC«U=3) 

UC»V=43 

UC»U=5) 

UCttU=6) 

UCttV=7) 

UCttV=8) 

UC«U=9) 

UCttV=il> 

UC«U=12) 

umv=i3) 

Ut«V=14) 

E: 

•NORTH 
JC»N=8) : 

Jt«H=-l) 

C:ttR=8N 

J:»CR 

•SOUTH 

JCttS=8) : 

JCttS=-i) 

c:«R=»s 

J:*CR 

•EAST 

JCttE=8J : 

JC»E=-1) 

C : »R=»E 

J:»CR 

•WEST 

jc«w=8) : 

JC«W=-1) 

C:8R=ttH 

J:»CR 

•UP 

jcmj=8) : 

C:t*R=8U 

c:»f=»f+ 



iSITEM: 
:$ITEM: 
:$ITEM: 
:$ITEM: 
:$ITEM: 
:$ITEM: 
SITEM5: 
$ITEMS: 
ICTURE 

TURE 

1548 

•FLASH 

•FUSEP 

•PICPI 

•BISPI 

•BONEP 

•KEYPI 

•CROPI 

•KEYPI 

•GLOUE 

:*BUCK 

{•BANA 

:*DRUG 

:*KEYP 



BUCKET 
BANANA 
DRUGS 
RED KEY 
FUSEBOX 

PASSAGEWAY 
$ITEM 
$ITEMS$ITEM 



PIC 

IC 

C 

C 

IC 

C 

C 

C 

PIC 

ETPIC 

NAPIC 

PIC 

IC 



•CANTGO 
:«CHECKDOOR 



•CANTGO 
:*CHECKDOOR 



•CANTGO 
{•CHECKDOOR 



•CANTGO 
i«CHECKDOOR 



•CANTGO 

1 
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1965 CCttR = 27) :t*F=ttF + l 

1919 j:*cr 
1915 BDOHN 

1920 JC»D=8) :*CANTG0 
1925 JC»R=11) :*H0W 
1936 JCttR=22) :»CKG 
1935 C:8R=8D 

1946 C!»F=ttF-l 

1945 J:*CR 

1956 *H0W 

1955 T:«H0W???? 

1966 JsBWAIT 
1965 BCANTGO 

1976 T:*I CAN'T GO IN THAT DIRECTION!! 

1975 JSBWAIT 

1986 BCKG 

1985 JCGB1549<>58) :*DEAD1 

1996 C:ttR=BD 

1995 C!»F=«F-2 

2686 JsBCR 

2865 BCHECKDOOR 

2818 A:=$ROOM 

2015 MSM4 ,M9 ,18 ,19 ,20 ,28 ,26 ,32 

,34 , 

2020 JM:*STUCK,*BLOCKED, BLOCKED, BSTUCK 

, BLOCKED, *BL0CKED2,*H0N,*H0H, BLOCKED 

2025 B5TUCK 

2030 TSISTHE DOOR NILL NOT OPEN!! 

2035 J:*WAIT 

2040 BLOCKED 

2045 TUSTHE DOOR 15 LOCKED!! 

2050 JSBHAIT 

2055 BBLOCKED 

2060 T:*THE DOG BLOCKS YOUR NAY!!! 

2065 JlBHAIT 

2878 BBL0CKED2 

2075 T:*THE GORILLA BLOCKS YOUR HAY!! 

2080 J:BMAIT 

2085 BCR 

2090 C:$ROOMNUM=ttR 

2095 C:$OBJECT= NOTHING 

2100 C:ttN = 

2105 Ci»S=8 

2110 C:»E=0 

2115 C:ttH=0 

2120 c:»u=o 

2125 C:«D=8 

2138 CS$ROOM=ROOM$ROOMNUM 

2135 A:=$ROOM 
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2146 M:M1 ,M2 , M3 , M4 ,M5 , M6 ,M7 , M8 

, M9 , M18 ,11 ,12 ,13 ,14 , 

2145 JM ! "ROOM! , "R00M2 , "R00M3, "R00M4 , "R 

OOM5,"R00M6,"ROOM7,»RO0M8,»ROOM9,»ROOM 

i8,»R00Mil,»R00Mi2,»R00Mi3,»R00Mi4 

2158 M:15 ,16 ,17 ,18 ,19 ,26 ,21 ,22 

2 3 24 25 26 
2155 ' JM:*R00M15,"R00M16,"R00M17,"R00M1 
8,"R00M19,"R00M28,"R00M21,"R00M22,"R00 
M23,»R00M24,*R00M25,*R00M26 
2168 M!27 ,28 ,29 ,38 ,31 ,32 ,33 ,34 

2165 ' JM:"R00M27,"R00M28,«R00M29,"R00M3 

8,«R00M3i,"R00M32,"R00M33,"R00M34,»R00 

M35,"MIN 

2178 E! 

2175 *TD 

2188 M:FLA,FUS,PAI,BIS,BON,KEY,CRO,GLO 

,MAT,BUC,BAN,DRU, 

2185 JM: "FLASHLIGHT, "FUSES, "PAINTING," 

BISCUITS, "BONE, "KEY,*CROMBAR, "GLOVES," 

MATER , KBUCKET , *B AN AN A , "DRUGS 

2198 M:GET,TAK 

2195 TY:«I CAN'T TAKE THAT!! 

2288 JN:»DONTHAUE 

2285 J:»MAIT 

2218 "FLASHLIGHT 

2215 C:»M=1541 

2228 J:*CM 

2225 "FUSES 

2238 C:«M=1542 

2235 J:"CM 

2248 "PAINTING 

2245 C:QB1555=5 

2258 C:ttM=1543 

2255 J:"CM 

2268 "BISCUITS 

2265 C:«M=1544 

2278 J!»CM 

2275 "BONE 

2288 C:«M=1545 

2285 J:"CM 

2298 "CRONBAR 

2295 C:«H=1547 

2388 J:"CH 

2385 "GLOMES 

2318 C:«M=1549 

2315 J:*CM 

2328 "MATER 

2325 JCCB1551<>8) :"ME8 



ESCAPE 285 



2338 C:tSM=1558 

2335 J!*CM 

2340 ^BUCKET 

2345 C:ttM=1551 

2358 J!*CM 

2355 *BANANA 

2368 C!»M=1552 

2365 J!»CM 

2378 *DRUG5 

2375 C:«M=I553 

2388 J:*CM 

2385 *KEY 

2398 MlBROWN, BLUE, RED 

2395 JM:»BROWH,*BLUE,*RED 

2488 T:*WHICH COLOR KEY??? 

2485 J:*WAIT 

2418 *BROWN 

2415 C:«M=1546 

2428 J:*CM 

2425 *BLUE 

2438 C:ttM=1548 

2435 J:*CM 

2448 *RED 

2445 C:«M=1554 

2458 J:*CM 

2455 *CM 

2468 M:GET,TAK, DR0,GIV 

2465 JM:*GET,*GET,*DROP,*DROP 

2478 »GET 

2475 JCQB«M=8) !*HAVE 

2488 JCQB«MO«R) :»HOTHERE 

2485 C:GBttM=8 

2498 C:tSL = 8 

2495 U'.KDRAHPICTURE 

2588 J:*OK 

2505 WDROP 

2510 J(BB«M<>0) :*DOHTHAUE 

2515 C:QBttM=«R 

2520 C!»L=1 

2525 J!*0K 

2538 *HAVE 

2535 TSISYOU ALREADY HAVE IT!! 

2548 J:*WAIT 

2545 *H0THERE 

2558 TsKTHAT ITEM 15 HOT HERE!! 

2555 J:*HAIT 

2560 *DONTHAUE 

2565 T:KYOU AREH ' T CARRYIHG THAT!! 

2570 J:*WAIT 

2575 *HAIT 
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2586 PA:249 

2585 J:*P 

2598 *0K 

2595 TiftOKAY! ! 

2688 PA: 68 

2685 Ji*P 

2618 »OPEN 

2615 M:CAB,FU5EB,B00KC,D00 

2628 JM:*CABOP,*FUSEBOP,*BOOKCOP,*DOOP 

2625 M:BOO,FUS 

2638 TYiUPLEASE TYPE THE WHOLE WORD!! 

2635 JY:*WAIT 

2648 T:*I CAN'T OPEN THAT!! 

2645 J:*WAIT 

2658 *CABOP 

2655 A:=$ROOM 

2668 M:M2 , M8 ,35 t 

2665 JM:*CAB1 J *CAB2,«CAB3 

2678 J:»NOTHERE 

2675 *CAB1 

2688 JCGB1561=1) :*ALREADYOPEN 

2685 C:GB1561=1 

2698 C:GB1542=2 

2695 U!*CP 

2788 U:*OPCAB 

2785 J:*OK 

2718 *CAB2 

2715 JCGB1563=1) :*ALREAI>YOPEN 

2728 C:GB1563=1 

2725 C:GB1544=8 

2738 C:GB1545=8 

2735 U:*CP 

2748 U:*OPCAB 

2745 J: WOK 

2758 *CAB3 

2755 JCGB1578=1> :*ALREADYOPEN 

2768 C:GB1578=1 

2765 C:GB1553=35 

2778 U:*MCP 

2775 U:«OPCAB 

2788 J: WOK 

2785 WFUSEBOP 

2798 JC«R<>5) :»NOTHERE 

2795 JCGB155505) :»NOTHERE 

2888 JC»R=53 :*LOOK 

2885 J:*OK 

2818 *BOOKCOP 

2815 JC»R<>7) :*NOTHERE 

2828 JCGB1562=1) :*ALREADYOPEN 

2825 C:GB1562=1 
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2838 U:*B08KCPIC 

2835 C!»5=ll 

2848 J:*OK 

2845 *DOOP 

2858 A:=$ROOM 

2855 M:M4 ,18 ,19 ,28 ,34 , 

2868 JM:*D4,*D18,*D19,*D28,*D34 

2865 J!*OK 

2878 *D4 

2875 JCGB155901) :*ME1 

2888 J:*ALREADYOPEN 

2885 *D18 

2898 JCGB1548<>8) !*ME2 

2895 C:»5=21 

2988 C:GB1566=i 

2985 J:*OK 

2918 *D19 

2915 JCGB1547<>8) :*ME3 

2928 C:»5=22 

2925 C:GB1564=1 

2938 Ji*OK 

2935 *D28 

2948 JCGB1546083 :*ME4 

2945 C!ttN=17 

2958 C:GB1565=1 

2955 J:*OK 

2968 *D34 

2965 JCGB155408) !«ME5 

2978 C:»N=38 

2975 C:GB1569=i 

2988 J:*OK 

2985 *OPCAB 

2998 C".$OBJECT= OPEN$OBJECT 

2995 E: 

3888 *ME1 

3885 TiHELECTRICITY 15 NEEDED FOR THAT 

i i 

3818 J:*HAIT 

3815 *ME2 

3828 T:>SVOU NEED THE BLUE KEY!! 

3825 J:*WAIT 

3838 *ME3 

3835 TsUIT'S STUCK! ! 

3848 J:*WAIT 

3845 *ME4 

3858 T:*YOU NEED THE BROWN KEY!! 

3855 J:*WAIT 

3868 *ME5 

3865 T:*YOU NEED THE RED KEY!! 

3878 J:*WAIT 
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3675 *ALREADYOPEN 

3880 TifllT'S ALREADY OPEN!! 

3085 J!*HAIT 

3090 *ALREADYOUT 

3095 TiHIT'S ALREADY OUT!! 

3100 J:*HAIT 

3105 *ME6 

3110 TilSYOU NEED SOME WATER!! 

3115 j:*hait 

3120 FLIGHT 

3125 M:FLA 

3130 TN:»SI CAN'T LIGHT THAT!!! 

3135 JN:*WAIT 

3140 JCGB1541O0) :*DONTHAUE 

3145 JCGB1558=1) !*LIT 

3150 C:GB1558=1 

3155 J:*OK 

3160 *LIT 

3165 T:*IT'5 ALREADY LIT!! 

3170 J;*HAIT 

3175 *USE 

3180 M:FUS,DRU,KEY,CRO 

3185 JM:*USEFUS,*USEDRU,*USEKEY,*USECR 



3190 J:*CANTDO 

3195 *USEFUS 

3200 JCGB1542O0) :*DONTHAVE 

3205 JCS*R<>5) !*ME7 

3210 C:GB1559=1 

3215 C:GB1542=10O 

3220 T:»STHE LIGHTS COME ON!! 

3225 J:*HAIT 

3230 *USEDRU 

3235 JCGB1553O0) !*DONTHAUE 

3240 JCGB1552O0J :*ME8 

3245 C:GB1571=1 

3250 TilSTHE DRUGS ARE IN THE BANANA!! 

3255 J!*WAIT 

3260 *USEKEY 

3265 JCGB1546=0) :*0K 

3270 JCGB1548=0) !*0K 

3275 JCGB1554=0> !*0K 

3280 J:*DONTHAUE 

3285 *USECRO 

3290 JCGB1547O0) :*DONTHAUE 

3295 JCUR0193 :*ME7 

3300 C:GB1564=1 

3305 J:*OK 

3310 *ME7 

3315 TJlSYOU CANT DO THAT HERE!! 
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3326 J:*WAIT 

3325 *ME8 

3336 TiftlN WHAT! ! 

3335 J5*WAIT 

3346 *CANTDO 

3345 T:«YOU CAN'T DO THAT!! 

3356 J:*WAIT 

3355 *PUSH 

3366 M:BOOKC,GOR 

3365 JM:*BOOKCOP,*PUSHGO 

3378 TSKSTHAT DOESN'T HELP!! 

3375 J:*WAIT 

3386 *PUSHGO 

3385 JC8R<>28) :*NOTHERE 

3396 J:*DEAD2 

3395 WTHROW 

3468 MsBAN, WAT,BIS.BON 

3485 JM:*THRBAN,*THRWAT,*THRBIS,*THRBO 

N 

3418 T:*WHY DO YOU WANT TO THROW THAT! 

i 

3415 J:*WAIT 

3428 *THRBAN 

3425 JCGB155208) :*DONTHAVE 

3438 C:6B1552=ttR 

3435 JCttR=28) :*BANGOR 

3448 J:*OK 

3445 *BANGOR 

3458 TSISTHE GORILLA EATS THE BANANA!! 

3455 C:GB1552=188 

3468 JCGB1571=1) :*SLEEP 

3465 J:*WAIT 

3478 *SLEEP 

3475 C:GB1568=1 

3488 U:*GORILLAPIC 

3485 C!«E=29 

3498 C:$OBJECT= SLEEPING GORILLA 

3495 C:GB1552=186 

3586 J:*P 

3585 *LOOK 

3518 CCttR=28) : GB1549=ttR 

3515 JC«R=263 :*OK 

3528 TC»R = 53 : ISTHERE ARE FUSES MISSING! 

i 

3525 JC*SR = 5> :*WAIT 

3538 T:*I SEE NOTHING SPECIAL!! 

3535 J:*WAIT 

3546 «GO 

3545 M:CHI, FIR, 5HA, GOR, DOG, CHU 

3556 JMlWGOFIR.WGOFIR.MGOSHA^GOGOR^G 
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ODOG,*GOCHU 

3555 J:*CANTGO 

3566 *GOFIR 

3565 A:=$ROOM 

3576 M:26 ,32 , 

3575 JN:*NOTHERE 

3586 JC6B15670I) :*DEAD5 

3585 CCttR = 26) !ttR=25 

3598 CCttR=32) :ttR=31 

3595 J!*CR 

3668 *GOGOR 

3665 JCttR<>28) :«N6THERE 

3618 JCGB1568<>1) :*DEAD2 

3615 J!*OK 

3626 «GODOG 

3625 JC»R<>9) :*NOTHERE 

3636 JCGB1557=8) :*DEAP3 

3635 J:»HOTHERE 

3646 *GOCHU 

3645 JCttROll) :*ME7 

3656 C:«R=28 

3655 C:»F=ttF-i 

3668 J:*CR 

3665 *G05HA 

3676 JC«R<>22) :*ME7 

3675 C:»R=27 

3686 J:*CR 

3685 »PRESSKEY 

3696 T 

3695 CiGB764=255 

3768 *L00P2 

3785 JCGB764=33) :*CR 

3716 J:*L00P2 
3715 *THRHAT 

3717 JCGBI567=i) :*ALREADYOUT 

3718 JCGB1558<>8) !*ME6 
3726 C:GB1558=23 

3725 JC«R<>26) :*0K 

3738 C:GB1567=1 

3735 C!$0BJECT= FIREPLACE 

3746 U!«FIREPIC 

3745 J:*0K 

3756 *THRBIS 

3755 JCGB1544<>83 !*D0NTHAVE 

3768 C:GB1544=»R 

3765 JCItR<>9) :*0K 

3776 T:*THE DOG EATS THE BISCUIT 

3775 C:GB1544=8 

3788 J!*HAIT 
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3785 KTHRBON 

3790 JCeB1545<>0) :*DONTHAVE 

3795 C:GB1545=»R 

3886 JCttR<>9) :*0K 

3885 C:GB1557=i 

3818 C:»W=7 

3815 C:eB1545=188 

3828 T:*THE DOG LEAVES TO BURY THE BON 

E! ! 

3825 C:$OBJECT= NOTHING 

3838 U:*DOGPIC 

3835 J!*WAIT 

3848 *WEAR 

3845 M:GLO 

3858 TN:*I CAN'T WEAR THAT!!! 

3855 JN:*WAIT 

3868 JC8B1549<>8) :*DONTHAUE 

3865 C:0B1549=58 

3878 J!*0K 

3875 *BR 

3888 GR:CLEAR;PEN YELLOW 

3885 GR : G0T074, 44; TURNT0188; DRAW23; TUR 

N45;DRAW71;TURN135;FILL23;TURN45;FILL7 

8 

3898 GR:G0T0-58,~6;DRAW37 

3895 GR: G0T0-76, -38; TURNT08; FILL23; TUR 

N45;FILL72 

3988 GRiPEN ERASE; G0T058, 21; DRAW48 

3985 GR:G0T0-75,-6;TURN45;DRAW26 

3918 GR:G0T0-23 J 45;TURN98;DRAW24 

3915 GR:G0T023,-6;DRAW24 

3928 E: 

3925 *SR 

3938 GR:CLEAR;PEN YELLOW 

3935 GR:G0T056, 44 ; TURNT0188; DRAW23; TUR 

N45;DRAW41;TURN135;FILL23;TURN45;FILL4 

8 

3948 GR:G0T0-6,16;DRAW6 

3945 GR:G0T0-32,-9;TURNT08;FILL24;TURN 

45;FILL41 

3958 GRiPEN ERASE ; G0T032 , 21 ; DRAW48 

3955 GR:G0T0-31,16;TURN45;DRAW26 

3968 GR:G0T026,16;TURN98;DRAW24 

3965 GR:G0T0-1, 45 ; DRA W24 ; G0T0-32 , ~9 

3978 E: 

3975 *HW 

3988 GR:CLEAR;PEN YELLOW 

3985 GR:G0T074,44;TURNT0188;DRAW23;TUR 

N98;DRAW121;TURN98;FILL23 

3998 GR:G0T046,16;TURN188;DRAW23;TURN9 
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8;drahi21;turn90;fillz3 

3995 GR:TURN45;G0T0-58,17;DRAW4 

4888 GR: GQT046, -7; DRAW38 

4885 E: 

4818 *CE 

4815 GRsPEN YELLOW; TURNT08 J G0T046 , -7; F 

ILL24;TURN45;FILL4;PEN ERASE 

4828 GR : TURN-45; GOl ; TURN45 ; DRAW38 

4825 GR : TURN-45; G0T045 , -7; DRAW24 

4838 E: 

4835 ^CW 

4848 GRSPEN YELLOW; TURNT045; G0T0-75, 17 

;FILL38 

4845 GRsPEN ERASE ; G03 ; TURN135 ; DRAW29 ; T 

URN98;DRAW38 

4858 Ei 

4855 *ELBOW 

4868 GR:CLEAR;PEN YELLOW 

4865 GR:TURNT0188;G0T044, 18;DRAW23; TUR 

N45;DRAW23;TURN135;DRAW16;FILL7;TURN18 

8;DRAW23;TURN98 

4878 GRsDRAW184;TURN98;FILL23 

4875 GRSPEN ERASE; TURN98; DRAW46; TURN-'* 

8;PEN YELL0W;FILL16 

4888 GR STURN98;G023; TURN-45; GOl ;DRAW22 

; TURN-45 ;DR A W23 ; TURN-135 ; FILL53 

4885 GR:G0T0-22,23;DRAW44;G0T0-22,48;F 

ILL76 

4898 GRSTURN-135;PEN ERASE; DRAW184; TUR 

N-45;DRAW23 

4895 GR: TURN-135 ; DRAW74 ; TURN 135 ; DR A W52 

4188 GR : TURN-45; GOTO- 21, 24 ;DRAW23; GOTO 

28,-29;DRAW23 

4185 E: 

4118 *SOUTHDOOR 

4115 A:=8R 

4128 M ' 7 

4125 JY:»SOUTHARROW 

4138 GRSPEN ERASE ; TURNT08; G0T0-48 , -38 ; 

2 CDRAW21; TURN98; DRAW15; TURN98) ; G0T0-28 

f -28; 4 CDRAW1 ; TURN98) 

4135 J:*SOUTHARROW 

4148 *SOUTHARROW 

4145 GRSPEN RED ; TURNT098 ; G0T061 , -38 ; DR 

AW4 ; TURN-98; DRAW2 ; TURN-98 ; DRAW4 ; TURN98 

;DRAW2;TURN98;DRAW4 

4158 GRsTURN98;G0T063 i -28;DRAW4;TURN13 

5;DRAW3;TURN98;G0T063,-24;DRAW3 

4155 E: 
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4160 *N0RTHD00R 

4165 A:=$ROOM 

4178 M!M6 ,13 ,22 ,27 , 

4175 CY:»X=i9 

4189 CY:t*Y = 28 

4185 JY:*ELEDOOR 

4198 GRiPEN ERASE ; TURNT08 ; G0T08 , 28; 2 CD 

RAH2i;TURN98;DRAN15;TURN98) ;G0T028,38; 

4CDRAW1;TURN98) 

4195 J;*NORTHARRQW 

4288 *NORTHARROW 

4285 GRiPEN RED; G0T063, -18 ; DRAM4; TURN1 

35;DRAM3;TURN98;G0T063,-14;DRAM3 

4218 GR:TURNT08;G0T061,-i2;DRAW4;TURNi 

35; DRAWS; TURN-135;DRAW4 

4215 E: 

4228 *EASTDOOR 

4225 A:=$ROOM 

4238 M5M3 , M9 ,17 ,18 ,29 , 

4235 JY:*EASTARROW 

4248 GRIPEN ERASE 

4245 GR!TURNT08;G0T048,-8;2CDRAW21;TUR 

N45;DRAN13;TURN135) ; G0T054 , 8 ; 2 CDRAM1; T 

URN45;DRAMl;TURN135J 

4258 J:*EASTARROH 

4255 *EASTARROW 

4268 GRIPEN RED; TURNT098 ; G0T064 , -19; DR 

AM6;TURN135; DRAW3 ; TURN98 ; G0T078 , -19; DR 

AN3 

4265 GR:TURNT0278;G0T075,-2l;DRAW3;TUR 

N90;DRAW4;TURN98;DRAW3;GOTO73,-19;DRAW 

1 

4270 E: 

4278 *WESTDOOR 

4288 A:=$ROOM 

4285 MSM4 ,18 ,18 ,19 ,34 , 

4296 JY:#NESTARROW 

4295 M:26 ,32 , 

4388 EY: 

4385 GR". PEN ERASE 

4318 GR:TURNT08;G0T0-48,-5;2CDRAW2l;TU 

RN45;DRAM13;TURN135) ;G0T0-42,18; CDRAM1 

; TURN45; DRAM1 ; TURN135) 

4315 J:*NESTARROH 

4328 *HE5TARR0W 

4325 GRJPEN RED ; TURNT0278; G0T062 , -19 ; D 

RAW6;TURN135;DRAW3;TURN98;G0T056,-19;D 

RAH3 

4338 GR!TURNT0188;G0T054,-17;DRAW4;TUR 

N135;DRAW3;TURN-98;DRAW3;TURN135;DRAW4 
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4335 E: 

4346 «HD 

4345 A:=$ROOM 

4358 M:R00M4 , R00M18 , R00M19 , 

4355 CY!«K=-25 

4368 CY:»Y=-8 

4365 JY:*ELEDOOR 

4378 GRsPEN ERASE ; TURNT08 J G0T0-28 , -8 ) 2 

CDRAM21;TURN98jDRAM15;TURN98) J GO TO- 8, 2 

j4CDRAWl;TURN98) 

4375 J:*SOUTHARROH 

4388 *ELEDOOR 

4385 GRSPEN ERASE 

4398 GR:TURNT0 8;G0T0BX,»Y;3CDRAH2e;TUR 

N98) ;DRAm8;TURN98;DRAH28;G0T0»X + 22,8Y 

+18jG0T0ttX+22,»Y+12 

4395 JC»K=-25) :*SOUTHARRON 

4488 J:*NORTHARROH 

4485 *DOHNARROH 

4418 A:=«R 

4415 Mill , 

4428 EY! 

4425 GR:PEN RED ; TURNT0188; G0T0-72 , 34 J D 

RAM4jTURN135jDRAH3;TLIRN98;G0T0-72,38;D 

RAM3 

4438 GR:G0T0~74, 28 J TURN45 J 11 CDRAM1 j TUR 

N18J jTURNT08jDRAW6;PEN ERASE 

4435 E: 

4448 «UPARR0H 

4445 GR:PEN RED j TURNT08 ; G0T0-72 , 36 j DRA 

H4;TURN135;DRAM3;TURN98jG0T0-72,48;DRA 

H3 

4458 GR:TURNT0188jG0T0-78,46;3CDRAM4jT 

URN983 ;PEN ERASE 

4455 E: 

4468 *PL 

4465 C:«X=-24 

4478 C:«Y=16 

4475 A:=$ROOM 

4488 M:M3 , M4 , M6 ,18 ,13 ,17 ,18 ,19 

,22 ,25 ,27 ,31 ,34 ,35 , 

4485 CY:»X=-54 

4498 CY!t*Y = -i2 

4495 MSM9 ,29 , 

4588 CY!»X=18 

4585 CY!8Y=24 

4518 E: 

4515 *FLASHPIC 

4528 GRC8L=1) IPEN BLUE 

4525 GRfttL=8) : PEN ERASE 
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4530 GR:TURNTO0jGOTOI*X,ttY-l 

4535 GR i 2 CDRAW1; TURN98 ; DRAW3; TURN98) 

4546 GRCttL=i) :PEN YELLOW 

4545 GRCttL=8):PEN ERASE 

4559 GR:G0T0ttX+3 J ttY;TURN45;DRAW3;TURNl 

35 i DRAW4 ; TURN135 j DRAH3 

4555 E: 

4566 *FU5EPIC 

4565 GRCttL=l):PEN RED 

4578 GR(OL=8):PEN ERASE 

4575 GR:TURNT0315;G0T0ttX+9,ttY-i;3CDRAW 

1JTURN135) 

4588 Ei 

4585 *PICPIC 

4598 GR.'PEN REDjTURNTO 8 

4595 GRCGB1555=ttR) : PEN BLUE 

4688 GR:G0T0-48,-2j2CDRAW15;TURN45;DRA 

W15JTURN135) jPEN BLUE 

4685 GRCQB1555=«R3 ! PEN YELLOH 

4618 GRsGOTO -47,4 

4615 C:ttA=9 

4628 *SPIRAL 

4625 GR:2CDRAWttAjTURN45jDRAW»A*2jTURNl 

35) 

4638 C:ttA=ttA+2 

4635 JC»A<8) :*5PIRAL 

4648 Ei 

4645 *BISPIC 

4658 GRCttL=l):PEN RED 

4655 GRCOL=8):PEN ERASE 

4668 GR:TURNT045jG0T0»X+13,ttY-l;4CDRAW 

1;TURN98) 

4665 Ei 

4678 *KEYPIC 

4675 A!=$ITEM 

4688 M:BRO, RED, BLUE 

4685 jm:*brownpic,*redpic,*bluepic 

4698 KBRONNPIC 

4695 GRiPEN YELLOW 

4788 C:«K=»K+48 

4785 J:*KEYPIC2 

4718 WREDPIC 

4715 GRSPEN RED 

4728 C:»K=ttX+24 

4725 J:»KEYPIC2 

4738 *BLUEPIC 

4735 GR:PEN BLUE 

4748 C!»K=»X+32 

4745 J:*KEYPIC2 

4758 *KEYPIC2 
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4755 GRCttL=8):PEN ERASE 

4766 GR:TURNT08;G0T0ttK J »Y-l;4CDRAW2;TU 

RN98J ;TURNT098;G0T0**K + 3,»Y;DRAW3;TURN9 

8; DRAWl; GOTOttK+4, ttY j DRAWl 

4765 E! 

4778 *BONEPIC 

4775 GRiPEN BLUE 

4788 GRC»L=8):PEN ERASE 

4 785 GR:TURMT0188;G0T0»X+17,ttYj2CDRAW2 

;TURN98j DRAWl ;TURN98) ; GOl; TURN-98; DRAW 

4 

4798 GR:2(TURN98;DRAW1) ; TURN98; DRAW2) 2 

CTURN98;DRAW1) 

4795 E: 

4888 *CROPIC 

4885 GR:PEN YELLOW 

4818 GRCttL=8):PEN ERASE 

4815 GR:TURNT0325;G0T0ttX,8Y-8;DRAW2;TU 

RNT898; DRAWS ;TURN-135;DRAW2 

4828 E: 

4825 *GLOUEPIC 

4838 GR:PEN RED 

4835 GRC»L=8):PEN ERASE 

4848 GRiTURNT08;G0T0l»X + 18 J OY-8j2CDRAM2 

jTURN98;DRAW4j TURN98) ; TURN-45 ; DRAW3 

4845 GR:G0T0»X+18,ttY-6jTURNT08jDRAW2;G 

0T0»X+12,ttY-6;DRAW2;G0T0ttX+14,ttY-6;DRA 

HI 

4858 E: 

4855 *BUCKETPIC 

4868 GRlPEN YELLOW; TURNTO 8 

4865 GRC»L=8) :PEN ERASE 

4878 GR:G0T0ttX+17,«Y-8;DRAW3;6CTURN38; 

DRAWl) jDRAW3;TURN98;DRAW4;PENBLUE 

4875 GRCttL=8):PEN ERASE 

4888 GR:G0T0»X+18,ttY-6;TURNT098;DRAW2 

4885 E: 

4898 *DRUGPIC 

4895 GRlPEN RED 

4988 GRC«L=G) : PEN ERASE 

4985 GR:G0T0ttX+24,ttY-6;G0T0»X+26,»Y-7; 

GOT08X + 28,t*Y-8 

4918 GRiPEN BLUE 

4915 GRCS*L = 8) :PEN ERASE 

4928 GR:G0T0ttX+24,»Y-8;G0T0ttX+38,ttY-6; 

G0T0ttX + 27,t*Y-7 

4925 E: 

4938 *BANANAPIC 

4935 GR:PEN YELLOW 

4948 GRCttL=8) :PEN ERASE 
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4 945 GR:G0T0»H+32,ttY-8;TURNT098;DRAW3; 

TURN~38;DRAW2 

4956 E: 

4955 *CP 

4966 GRiPEN RED; TURNT06 ; G0T016 , 25 

4965 GRMCDRAW 15jTURN 983 

4976 U:*CHECKCABPIC 

4975 GRCttO=l) : PEN YELLOW 

4986 GR: GOT 01 7, 26 ; DRAW14 ; G0T015 , 32 ; GOT 

019,32 

4985 GRCtt0=l) :PEN RED; G0T018, 25; TURNTO 

225 ;DRAW5;TURN135;DRAW15;TURN45; DRAWS 

4996 GRtttO-i) : TURN45 ; DRAW15 ; TURM45 ; DRA 

W5;TURN45;DRAW15;TURN135;DRAW5 

4995 E". 

5666 *CHECKCABPIC 

5665 A:=«R 
5616 M:2 ,8 , 

5615 JM:*CAB2PIC,*CAB8PIC 

5826 E: 

5625 *CAB2PIC 

5838 C:»0=8 

5835 CC0B1561=1) :«0=1 

5846 E! 

5645 «CAB8PIC 

5856 C:«6=8 

5655 CCGB1563=1) :»0=i 

5666 E: 

5665 *B00KCPIC 

5876 GRSPEN BLUE ; G0T0-38 , -6 ; TURNTOO 

5875 GRCGB1562=8) ! 2 CDRAW3 ; TURN98 ; DRAW3 

2 ' TURN98J " FILL3 

5888 GRCGB1562=1) ! G0T0-27 , -6 ; PEN RED;T 

URN67;DRAW26;TURN-98;DRAW3;TURN-98;FIL 

L32 

5885 Ei 

5896 *MCP 

5895 GRiPEN RED ; G0T0-4 , 15 ; TURNT045 ; 2 CD 

RAW3; TURN45; DRAW15; TURN135) ; FILL3 

5186 GRCGB1578=1) : GQTO-2, 18; DRAW9 

5185 E: 

5118 *GORILLAPIC 

5115 GRSPEN YELLOW; TURNT0278 

5128 GRCGB1568=1) : PEN ERASE 

5125 GR!G0T032 J 4;DRAWl;TURN98;DRAW2;TU 

RN-45; DRAW3J TURN98; DRAWlJ TURN-45J DRAW3 

;TURN98;DRAW2 

5136 GR:TURN96;DRAW2;TURNT096;DRAWl; TU 

RN-98;DRAW3;TURN-98;DRAW4;2CTURN98;DRA 

WD ;TURN-98 
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5135 GR:DRAW2; TURN-98 J DRAW4 ; 2 CTURN-98; 

DRAW2) ;TURN98; DR AW1 ; TURN98 ; DRAWS ; TURN- 

98;DRAW3 

5148 GR : TURN-98 ; DR A Wl; TURN-98 ;DR A W2;TU 

RN98;DRAW2;TURN98;DRAW4;G0T027,8;TURNT 

0225;DRAW3;TURN~45 

5145 GR:DRAW2;TURN98;DRAWi;G0T028,15;G 

0T038,8;G0T025,15;G0T031,15 

5158 GR:G0T029,12;DRAW2;G0TO29,il;DRAW 

2;G0T029,18;DRAW2;G0T029,9;DRAW2 

5155 GRCGB1568=1) :PEN BLUE ; TURNT88 ; GOT 

018,4;DRAW1;TURN98;DRAW3;TURN~135;DRAW 

3 

5168 GRCQB1568=1) :PEN YELLOW) TURN98; DR 

AW1;TURN45;DRAW4;TURN45;DRAW3; TURNT08; 

4CDRAW3:TURN98) 

5165 GRCGB1568=13 ! TURN-98 ; DRAWS ; TURN45 

;FILL3;G0T027,8;TURN135;DRAW1;G0T027,7 

' DRAW1 

5178 GRCGB1568=1) : PEN BLUE j G0T025 , 7 ; TU 

RN45;DRAW3;TURN-45;DRAW3 

5175 E: 

5188 *DOGPIC 

5185 GRiPEN YELLOW; TURNT08 

5198 GR(GB1557=1) : PEN ERASE 

5195 GR : G0T0-4 9, -4J DRAW1; 2CDRAW2J TURN9 

8;DRAW4;TURN98) ; G02; TURN-45; DRAW 3 

5288 GR:G0T0-33,-2;DRAW3;G0T0-33,-2;TU 

RN-45;DRAW6;G0T0-35,-i; TURN-98 ;G0T0-36 

,-3jDRAWi 

5285 E! 

5218 *FIREPIC 

5215 C:ttH=-48 

5228 C:«Y=-5 

5225 A!=$ROOM 

5238 M:25 ,31 , 

5235 CY:ttX=36 

5248 CY:«Y=8 

5245 GRiPEN RED; TURNT08 ; GOTQttX , 8Y ; 2 CDR 

AW21;TURN45;DRAW21;TURN135) 

5258 GR:G0T0«X+4 J «Y+4; 2 CDRAW18; TURN45 j 

DRAW14;TURN1353 ; GOTOStX , ttY+23 ; TURN45; DR 

AW28 

5255 C:ttP=«Y+3 

5268 *BRICKS 

5265 GR:G0T0»H+l,ttP;DRAW3 

5278 C:«P=»P+3 

5275 JC«P<16) !*BRICKS 

5288 GR:PENBLUE;G0T0ttX+6,BY+8;TURNT08; 

DR AW1 ; TURN98 ;DR A W2; TURN-98; DRAW! 
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5285 GRiGOTOttX 

DRAW4;TURN188; 

5298 GRiPEN RE 

5295 GRCQB1567 

5388 GR:GOTO»H 

TURN98;DRAW3;T 

5385 E: 

5318 »SINKPIC 

5315 GRiPEN RE 

AW2;TURN98;DRA 

AW6;TURN-98;G0 

5328 GRJDRAW6; 

RN45;DRAW6) J TU 

W5;TURN135jDRA 

5325 GRI2CTURN 

2CTURN45;DRAW2 

RAW2 

5338 GRiPEN RE 

W6jG0T0-41,7jD 

5335 GR5GOTO-4 

5 

5348 GR:G8T0-4 

-37,8;DRAW6 

5345 E: 

5358 *INITIALI 

5355 GRiQUIT 

5368 C!GB764=2 

5365 C:GB1373= 

5378 C:GB1374= 

5375 WRITE: 5, 

5388 P0S:7,4 

5385 WRITE :S,e 

5398 P05:3,8 

5395 WRITE :S,b 

5488 CLOSE: 5 



+ie,ttY+12;DRAWi;TURN-98; 

DRAW7;TURN-98;DRAW1 

D 

=1) SPEN YELLOW 

+ 5,t*Y + 15;TURNT045;DRAW3; 

URNT045jG02;DRAW3 



D;TURNT08;G0T0-48,5;2CDR 
W6JTURN98) ; GOl ; TURN98 ; DR 
ljTURN-98 

TURN98;G01;PEN BLUEj2CTU 
RN135;DRAW6;2CTURN45;DRA 
MS 3 

45jDRAW3jTURN135;DRAW3) J 
;TURN135;DRAW2) ;TURN45;D 

DjG0T0~41,8;TURNT045jDRA 

RAW6 

1,6JDRAW5|G0T0-41,5;DRAW 

1,5;TURNT0188;DRAW6;G0T0 



ZE 

55 

8 CNO TEXT WINDOW 

2 [GRAPHICS MODE 2 



SHEpE 

y jack hardy 



5485 
5418 
5415 
5428 
5425 
5438 
5435 
5448 
5445 
5458 
5455 
5468 
5465 
5478 
5475 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 



t»L = l 

»R = 1 

BF = 4 

$ROOM=R 

GB1541= 

GB1542= 

QB1543= 

GB1544= 

GB1545= 

GB1546= 

GB1547= 

GB1548= 

GB1549= 

GB1558= 

GB1551= 



OOM1 

1 

188 

5 

188 

188 

12 

14 

16 

188 

23 

24 
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5486 C:GB1552=33 

5485 C:GB1553=188 

5498 C:GB1554=21 

5495 C:GB1555=188 

5588 C:GB1556=188 

5565 C:«M=1557 

5518 «L0GP1 

5515 C:GBttM=8 

5528 C:«H=»M+1 

5525 JC»M<1572) :*LOOPl 

5538 C!$OBJECT= NOTHING 

5535 C:$COMMA=, 

5548 U:*DARK 

5545 E: 

5558 *DARK 

5555 ECGBI559=1J : 

5568 GR:CLEAR 

5565 C:GB718=8 

5578 «COMMAND 

5575 TsKIT'S VERY DARK!! 

5588 T:MHAT DO YOU WANT TO DO? 

5585 A: 

5598 M:FEE,LOO,GO ,MOU,LIG 

5595 JM:»F,*L,*G f »G,»LI 

5688 T.'fSYOU CAN'T DO THAT NOW!! 

5685 *WAIT2 

5618 PA:148 

5615 J:*COMMAND 

5628 *F 

5625 TCGB154lOttR) ilSYOU DON'T FEEL ANY 

THING! ! 

5638 JCGB154lO»R) :*WAIT2 

5635 T:PSYOU FIND A FLASHLIGHT!! 

5648 C:GB1541=8 

5645 J:*MAIT2 

5656 *L 

5655 T:*IT IS TOO DARK TO SEE ANYTHING 
i i 

5668 J:*HAIT2 

5665 *G 

5678 T SUIT'S DANGEROUS TO MOVE IN THE 

DARK! ! 

5675 PAS248 

5688 J:*DEAD4 

568 5 KL X 

5698 TCGB154108) SlSYOU DON'T HAVE THE 

FLASHLIGHT! ! 

5695 JCGB154109) :*WAIT2 

5788 C:GB1558=1 

5785 C:GB718=148 
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5716 C:QB789=42 

5715 E: 

5729 *DEAD1 

5725 TilSYOUR HANDS SLIP AND YOU FALL!! 

5739 C:ttP=31 

5735 WREPEAT 

5749 SOittP 

5745 C:«P=»P-i 

5759 JCttPOfl) :*REPEAT 

5755 J:*DEATHMARCH 

5769 *DEAD2 

5765 TJISTHE GORILLA TEARS YOU LIMB FRO 

M LIMB! ! ! 

5779 J!*DEATHMARCH 

5775 «DEAD3 

5789 T5ISTHE DOG ATTACKS!!! 

5785 J:«DEATHMARCH 

5799 *DEAD4 

5795 T:«YOU FALL AND BREAK YOUR NECK!! 

5889 J:*DEATHMARCH 

5895 *DEAD5 

5819 T:*YOU ARE COOKED ALIVE!!! 

5815 J:*DEATHMARCH 

5828 *DEATHMARCH 

5825 C:ttP=2 

5838 S0:5 

5835 PA:32 

5848 U:*PAU5E 

5845 50:5 

5858 PA:16 

5855 U!*PAUSE 

5868 50:5 

5865 PA:4 

5879 U:*PAUSE 

5875 S0:5 

5888 PA: 32 

5885 U:«PAUSE 

5898 50:8 

5895 PA:16 

5999 U:*PAUSE 

5995 S0:7 

5919 PA:8 

5915 U!*PAUSE 

5929 S0:7 

5925 PA:8 

5938 U!*PAUSE 

5935 50:5 

5949 PA:8 
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5945 U:*PAU5E 

5956 50:5 

5955 PA:8 

5968 U:*PAU5E 

5965 S0:4 

5976 PA:8 

5975 U:*PAU5E 

5986 50:5 

5985 PA:32 

5990 SO!0 

5995 *PLAYAGAIN 

6600 T:* WANT TO TRY AGAIN? CY/N3 

6605 C:GB764=255 

6610 *YNKEY 

6015 JCGB764=43) :*INITIALIZE 

6020 JCGB764=35) :*5T0P 

6025 J!*YNKEY 

6630 *PAU5E 

6035 50:0 

604O PA:ttP 

6045 E: 

6650 *STOP 

6055 GR:QUIT 

6O60 C:G764=255 

6065 T'.ISTHANKS FOR PLAYING!!! 

6670 E! 

6075 *WIN 

6680 GRiQUIT 

6085 C:GBI373~16 [TEXT WINDOW 

6690 C!GB1374=2 

6895 WRITE: 5, 

6160 P05:3,4 

6105 WRlTE:5,yEU GlsSAQeS! 

6116 C:»P=0 

6115 50:26 

6126 PA:2 

6125 U:*PAU5E 

6130 50:22 

6135 PA:2 

6140 U:*PAUSE 

6145 50:24 

6150 PA:2 

6155 U:*PAUSE 

6160 50:26 

6165 PAS16 

6178 U:*PAUSE 

6175 50:22 

6180 PA:2 

6185 U:*PAU5E 

6190 50:26 
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6195 PA:32 

6286 50:8 

6285 HRITE:5, 

6218 HRITEiS, CONGRATULATIONS!! 

6215 CL05E:5 

6228 J:*PLAYAGAIN 



THE HUNTER 

Objective: to locate the magic key which will reveal the hidden 
location of the crown. There are 16 rooms through which you 
must search to find the hidden crown. Only after the magic key 
is found will the crown be visible. 

The program requires Atari Microsoft BASIC and 32K when 
loaded from disk or cassette. 



18 GRAPHICS 2+16:G0SUB 1140:GO5UB 840 

20 S=PEEKC&2783 SPOKE &D81E,0:IF PEEK C& 

D0103=O THEN 290 

30 IF KEY=ROOM THEN GOSUB 650 

40 IF CROWN^ROOM AND KEY = THEN GOSUB 

6 8 

50 IF MON THEN GOSUB 28© 

60 IF PEEK C&DO04) =3 THEN 1650 

70 IF PEEK C&D0OE) =1 THEN 1650 

88 IF S=15 THEN 20 

90 CX=CS=9 OR S^ie OR S=ll) - CS=5 OR S= 

6 OR S = 7) 

10O CY=CS=6 OR S=10 OR S=14) - CS=5 OR S 

=9 OR S = 13) 

110 X=X+CX*3 : POKE &D000,X 

120 IF CY = + 1 THEN MOUE UARPTR CPLM2) +12 

8+CY-2),VARPTRCPLM2)+128+Y,12: Y = Y + 2 

138 IF CY--1 THEN MOUE VARPTR CPLM2) +12 

8 + Y, UARPTR CPLM2)+128+CY-2) , 12 : Y=Y~2 

140 IF X>20O THEN X = 44 : GOSUB 250 : PRINT 

«6, ATC0,OJ J "»S":POKE &D000,X:GOSUB 720 

150 IF X<44 THEN X = 20O : GOSUB 250 : PPINT 

«6, AT C0,O) ;"H" :POKE &DO0O, X : GOSUB 740 

160 IF Y>106 THEN GOSUB 190 : GOSUB 250 : 

PRINT »6, ATCO, 0) ; "IS": Y = 12:G0SUB 788:G0 

SUB 1618 

170 IF Y<12 THEN GOSUB 190 : GOSUB 250 : P 

RINT »6, AT C0,0) j "IS" : Yrl06:G05UB 768 : GO 

SUB 1618 

188 GOTO 28 

190 FOR J=OARPTRCPLM25 +128+Y TO UARPTR 

CPLM2) +137+Y : POKE J , O : NEXT : POKE SD^ID, 

O: RETURN 

20O IF X>RX THEN RX=RX+1 

210 IF X<RX THEN RX-RX-1 

220 IF Y<RY THEN MOVE UARPTR CPLM23 +384 

+RY, VARPTR CPLM2 3+384 +CRY-1J,10:RY=RY-1 

305 
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239 IF Y>RY THEN MOVE VARPTR CPLM23 +384 
+ CRY-13 , VARPTR CPLM2) +38 4 + R Y , 16 : RY = R Y + l 

240 POKE &D992,RX:50UND 1 t 299 , 2 , 4 , 1 : RE 
TURN 

259 FOR J=VARPTR CPLM23 +384+RY TO VARPT 
RCPLM2) +392+ RY : POKE J, 9: NEXT : MON = 
269 IF ROOM=KEY THEN FOR J=VARPTR CPLM2 
3+256+TY TO VARPTR CPLM2) +269+TY : POKE J 

ft * UFVT 

279 IF ROOM=CROHN AND KEY=9 THEN FOR J 

=VARPTRCPLM2) +256+TY TO VARPTR CPLM2) +2 

65+TY:P0KE J,9:NEXT 

289 RETURN 

299 IF PEEKC&278)=15 THEN 59 

399 AMO=AMO-l:IF AMO<I THEN SOUND 9,19 

, 19, 19, 2:G0T0 59 

319 SOUND 9, 199,6,19,5:BK=K:BY=Y 

329 IF PEEKC&2783=14 THEN 429 

339 IF PEEKC&278)=:11 THEN 549 

349 IF PEEKC&2783=13 OR PEEK C&2783 -3 

R PEEKC&278)=5 THEN 489 

359 BX=BX+6 

369 POKE VARPTR CPLM2) +4+BY, 3 

370 POKE &D994,BX 
389 BX=BX+4 

399 IF PEEK C&D0O05 <>0 THEN 640 

409 IF PEEKC&D008>>1 THEN 610 

410 IF BX>240 THEN POKE ARPTR CPLM2) +4 
+BY,0:GOTO 29 ELSE 370 

420 POKE VARPTRCPLM2)+4+BY,l 

430 POKE &D0O4,BX+4 

440 MOUE VARPTR CPLM2) +4+BY, VARPTR CPLM2 

) +4+CBY-4J ,8:BY=BY~4 

450 IF PEEKC&DO00) <>9 THEN 649 

469 IF PEEKC&D9083>1 THEN 619 

479 IF BY<15 THEN POKE VARPTR CPLM2) +4+ 

BY,9:G0T0 29 ELSE 449 

489 POKE VARPTRCPLM23+4+BY,l 

499 POKE &DO04,BX+4 

500 MOVE UARPTR CPLM23 +4+ CBY-4) , VARPTR C 
PLM2) +4+BY,8 : BY=BY+4 

510 IF PEEKC&D0OO) <>0 THEN 640 

520 IF PEEK C&D0O83 >1 THEN 619 

539 IF BY>124 THEN POKE VARPTR CPLM2) +4 

+BY,9:G0T0 29 ELSE 599 

549 POKE VARPTRCPLM2)+4+BY,3 

559 POKE VARPTRCPLM2) +4+Y, 3 

569 POKE &D994,BX 

579 BX=BX-4 
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589 IF PEEKC&D8883 <>8 THEM 648 

598 IF PEEKC&D888)>1 THEN 618 

688 IF BX<44 THEN P8KE UARPTR CPLM25 +4+ 

BY,8:G8T8 28 ELSE 568 

618 POKE UARPTR CPLM2J +4+BY , 8 

628 FOR CL=12 TO 8 5TEP -1 : 5ETC0L0R 2, 

4,CL:58UND 8, 28*CL, 6, 8 : FOR T = l TO 18 : N 

EKT TINEKT CL ! SOUND 8,8,8,8 

638 FOR J=VARPTRCPLM2)+384+RY TO UARPT 

RCPLM2) +392 + RY!P0KE J , 8 : NENT ! M0N=8 : GOT 

28 

648 POKE VARPTR CPLM2) +4+BY,8:G0T0 28 

658 IF PEEK C&D88D)>1 THEN GOSUB 718 : KE 

Y=RNDC16) 

668 IF PEEK C&D88D) =1 THEN GOSUB 718 ! KE 

Y = 8 

678 RETURN 

688 IF PEEK C&D88D) >1 THEN GOSUB 718 : CR 

0HN=RNDC16) 

698 IF PEEKC&D88D3=1 THEN GOTO 1838 

788 RETURN 

718 SOUND 8, 288,18, 8,18:F0R J=UARPTR CP 

LM23+256+TY TO VARPTR CPLM2) +256+CS+TY : 

POKE J,8:NEXT:RETURN 

728 IF R00M=16 THEN ROOM=l : GOTO 888 

738 ROOM=ROOM+l!GOTO 888 

748 IF ROOM=l THEN R00M=16:G0T0 888 

758 ROOM=ROOM-l:GOTO 888 

768 IF R00M<5 THEN R00M=R00M+I2 : GOTO 8 

88 

778 R00M=R00M-4: GOTO 888 

788 IF R00M>12 THEN R00M=R00M~12 : GOTO 

888 

798 R00M=R00M+4 : GOTO 888 

888 POKE 77, 8 : RX=RND C148)+58 : RY=RNDC78 

) +48 

818 M0NTYPE=RNDC5) : ON MONTYPE GOSUB 17 

38, 174 8,1758,1768,1788 

828 IF KEY=ROOM THEN GOSUB 1888 

838 IF CRONN=ROOM AND KEY=0 THEN GOSUB 

1118 
848 ON ROOM GOSUB 878,1838,978,988,183 
8, 978, 988, 878, 978, 988, 878, 1838, 988, 878 
,1838,978 _ 

858 PRINT»6, AT C8,18) j m H1Il3T" : PRINTtt6 , AT 
C8,ll) ;MID$CRM$,R00M*4-3,4) ; 
868 RETURN 

878 PRINT «6, ATC8,4) ;PASS$ CI) ; 
888 FOR CL=8 TO 3 : PRINT »6 , AT C8 , CL3 ; P A 
SS$C2) :NEXT:PRINT«6, AT C8 , 4) ; PASS$ C3) 
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898 PRINT»6,AT C8,6) J PA5S$ C4) ! FOR CL = 7 

TO 11:PRINT»6, ATC8, CD J PAS5$ C2) ; : NEKT : 

RETURN 

999 FOR CL = 8 TO 11 ! PRINT»6 , AT C8 , CD i PA 

SS$ C2) :NEKT 

918 PRINT »6, AT C9,4) jP A55$ C13 

928 PRINTtt6, AT C4, 1) ; " r""""^ ZZ iF— " ^ " : FOR 
CL=2 TO 3:PRINT86, AT C4,CD J "| ZZZZZZZZ 
ZZ I" : NEKT 

938 PRINT tt6, ATC4,4) ;"■ ZZ ZZ ■" : PR 

INT tt6, ATC4,5 ) ; "ZZZ ZZZ" ! PRINT »6 

, AT C4, 6) J " B ZZ"* ZZ ." 

948 FOR CL = 7 TO 8 ! PRINT86 , AT C4 , CD ; "| Z 

ZZZZZZZZZ |":NEKT 

958 PRINT tt6, AT C4, 9) ; " *■ . 77 . ■» ■■ 

968 RETURN 

978 PRINT»6, AT C8,4) ; PA55$ CI) : FOR CL = 8 

TO 2:PRINT»6, ATC8,CD jPAS5$C2) ! PRINT»6 

, ATC8,CL+9) ;PAS5$C2) ; : NEXT 

988 PRINT »6, AT (3,2) J " r ■ ZZ ■ 1 " 

998 PRINT »6, ATC3,3) J "| ZZZZZZZZZZZZ |" 

1888 PRINT »6, ATC3,4) J" 1 ZZZZZZZZZZZZ ■■• 

: PRINT »6, ATC3,5) ; "ZZZZZZZZZZZZZZ" : PRI 

NT »6, ATC3, 6) j "■ ZZZZZZZZZZZZ «" 

1818 FOR CL = 7 TO 8 : PRINT»6 , AT C3 , CD ; "| 

ZZZZZZZZZZZZ |": NEKT 

1828 PRINT OBi ATC3,9) ;" "- . ZZ ■ J" 

• RETURN 

1838 FOR CL=8 TO 11 : PRINT86 , AT C8 , CD ; P 
AS5$C2) J :NEKT 

1848 PRINT «6, ATC8,4) ; PA55$ CI) : PRINT 8 
6, ATC3,7) ;"'| ZZZZZZZZZZZZ |" ! PRINT 86, AT 
C3,8) ;'"- ■ ZZ ■ J" 

1858 PRINT 86, ATC5,4) ; M i I ZZ | p" : PRI 

NT 86, ATC5,53 ; ■■ | I ZZ | | '■ 

1868 PRINT tt6 l ATt3,6)J",Z , ™ l ZZ r ^Z," 

1878 RETURN 

1888 TK=128:TY=78:C5=4:RE5T0RE 1188:P0 

KE &D081, TK:POKE &D889 , 1 : 5ETC0L0R 1,12 

,8 

1898 FOR J=UARPTR CPLM2) +256+TY TO VARP 

TRCPLM2) +268+TYJREAD CH : POKE J,CH:NEKT 

• RETURN 

1188 DATA 8,255,165,229,8 

1118 TH-114: TYr?8:C5=9 :RE5T0RE 1138:P0 

KE &D881, TK : POKE &D889 , 3 : 5ETC0L0R 1,1, 

8 

1128 FOR J=VARPTRCPLM2) +256+TY TO VARP 

TR CPLM2) +265 + TY : READ CH : POKE J,CH:NEKT 
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.■RETURN 

1130 DATA 0,16,56, 

54,0 

1140 PRINT »6,ATC4 

NT »6, ATC3,53 ; 

1150 LEL=lil_EUEL$ = " NOVICE 

SERGEANT CAPTAIN COMMANDER" 

1160 DIM PASS$C4) 

1170 PA5S$C1)=" 

ZZZZZZZZZZZZZZZZZ 



16, 2 54, 170i 214, 170, 2 



33 ; "kJ.U.IIhVIJil" : PRI 



BY JACK HARDY 



PILOT 



ZZZ 
ii 



1180 
A55$ C 
1190 
y i i i i 

1200 

1210 
6) : IF 
1220 
5 
1230 
J, 10, 
1240 
RCCHR 
1250 

1266 

ADDRX 

1270 

ADDRK 

1280 

ADDRX 

1290 

ADDRK 

1300 

E ADD 
1310 

ADDR 
1320 

ADDR 
1330 

ADDR 
1340 

ADDR 
1350 

ADDR 
1366 

ADDR 
1370 

ADDR 



PAS5$C2) = "| ZZ |" 
43=" B ZZ b" 
RM$="iZZZiiZZii 
XZZxZZZXiZZxi iZ 
R00M=1 

RANDOMIZE : CROHN 
CROWN=KEY THEN 
FOR J=10 TO 5 
TEP -2: SOUND O, 
FOR Jl=120 TO 9 
JINEXT JliNEKT 
CHBAS=756: OPTIO 
2) :PAGE'/:=CADDRK 
MOOE 57856, ADDR 



0F=0*8 !F 
+OF+I,CH 
0F=3*8:F 
+0F+I,CH 
0F=5*8 : F 
+OF+I,CH 
0F=9*8iF 
+OF+I,CH 
0F=li*8i 
RK+OF+I, 
0F=15*8i 
K+OF+I, C 
0F=17*8i 
X+OF+I,C 
0F=26*8i 
K+OF+I, C 
0F=41*8 : 
X+OF+I, C 
OF=50*8i 
K+OF+I, C 
0F=54*8 : 
K+OF+I, C 
0F=56*8 : 
/. + OF + I, C 



OR 1 = 
: NEKT 
OR 1 = 
iNEKT 
OR 1 = 
! NEKT 
OR 1 = 
: NEKT 
FOR 1=0 
CH iNEKT 
FOR 1=0 
H: NEKT 
FOR 1=0 
Hi NEKT 
FOR 1=0 
H : NEKT 
FOR 1=0 
H : NEKT 
FOR I=0 
H : NEKT 
FOR 1=0 
H : NEKT 
FOR I=0 
H : NEKT 



: pass$ t3J= Mi zz B,, :P 

iZivZZvZZZViZZViiZ 
XiiiXivZxvZZXViZ" 

= RNDC163 :KEY = RNDCI 

1210 
TEP -liFOR Jl=20 T 
J1,10,J:NEKT Jl 
STEP -2:S0UND 1, 
J 

N CHR2: ADDRK=UARPT 
/2563AND 255 
X, 512! RESTORE 1390 

TO 7:READ CHiPOKE 

TO 7:READ CHiPOKE 

TO 7:READ CHiPOKE 

TO 7IREAD CHiPOKE 

TO ISiREAD CH:POK 

TO 7:READ CHiPOKE 

TO 7:READ CHiPOKE 

TO 7:READ CHiPOKE 

TO 7:READ CHiPOKE 

TO 7!READ CHiPOKE 

TO 7:READ CHiPOKE 

TO 7:READ CHiPOKE 
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1388 8F=58*8:F0R 1=8 T8 7 : READ CH:P8KE 

ADDRK+OF+I, CH : NEXT 
1398 DATA 251,251,251,8,223,223,223,8 
1488 DATA 3,3,3,3,3,3,255,255 
1418 DATA 255,255,3,3,3,3,3,3 
1428 DATA 8,8,8,8,8,8,3,3 
1438 DATA 3,3,8,8,8,8,8,8,192,192,8,8, 
8,8,8,8 

1448 DATA 8,8,8,8,8,8,192,192 
1458 DATA 255,255,192,192,192,192,192, 
192 

1468 DATA 192,192,192,192,192,192,255, 
255 

1478 DATA 8,126,24,24,24,24,126,8 
1488 DATA 8,124,182,182,124,188,182,8 
1498 DATA 8,182,182,182,182,68,24,8 
1588 DATA 8,182,182,68,68,182,182,8 
1518 DATA 8,8,8,8,8,8,8,8 

1528 PRINT 86, ATC4,8) J"select LEVEL" : P 
RINT »6, ATC4, 11) , '"Start TO PLAY"; 
1538 PRINT»6, AT C5, 9) J MID$ CLEUEL$ , LEL*9 
-8,9) : AM0=36-CLEL#4) 
1548 IF PEEK C53279) =6 THEN 1578 
1558 IF PEEKC53279)=5 THEN LEL=LEL+1 : 5 
OUND 8,158,ie,ie,ie:IF LEL>5 THEN LEL= 
1 

1568 F8R J=l TO 188 : NEXT : GOTO 1538 
1578 X=120:Y=82 

1588 OPTION PLM2:P0KE 559,46:P0KE &D88 
C,l:POKE &D81D,3:P8KE &D888,X:P0KE &D8 
88,l:P8KE &26F,1 
1598 5ETC0L0R 0,9,8 

1688 G05UB 1618 : POKE CHBAS , PAGE* ! PRINT 
»6,"*": RETURN 

1618 RE5T0RE 1638 : FOR J=MARPTR CPLM2) +1 
28+Y TO UARPTR CPLM2) +137+Y:READ CH : POK 
E J,CH 

1 fi "? O UCUT 

1638 DATA 8,16,16,16,56,48,124,254,56, 

8 

1648 POKE &D81D,3:RETURN 

1658 RESTORE 1728 \ 5ETC0L0R 8,4,12:F0R 

J=VARPTRCPLM2)+128+Y TO VARPTR CPLM2) +1 

37+Y:READ CH ! POKE J,CH:NEXT 

1668 FOR CL=12 TO 8 STEP -1 : 5ETC0L0R 

,4,CL:50UND 8 , 26*CL, 6 , 8 : FOR T=l TO 18: 

NEXT T:NEXT CLrSOUND 8,8,8,8 

1678 FOR J=UARPTR CPLM2) +128+Y TO VARPT 

RCPLM2)+137+Y:P0KE J,8:NEXT:F0R TI=1 T 

288: NEXT 
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1689 
THCP 
ID, 9 
1699 
OU G 
1799 
9,12 
J: 59 
1719 
1729 
1739 
&D99 
1749 
&D99 
1759 
&D99 
1769 
&D99 
1779 
384 + 
POKE 
1780 
1790 



FOR JrUARPTRC 
LM2)+392+RY:P0 



PLM23+384+RY TO UARP 
KE J,9:NEXT:P0KE &D9 



GRA 

OT Z 
FOR 

, J:5 

UHD 
GOT 
DAT 
5ET 

A, l: 
5ET 

A, 1: 
5ET 

A, 9: 
5ET 

A, 3 
POK 

RY T 
J,C 
RET 
DAT 



PHIC5 
APPED 
J = 15 
OUND 
3,129 
187 
A 9,1 
COLOR 
GOTO 
COLOR 
GOTO 
COLOR 
GOTO 
COLOR 



E &D0O2,RK 
OARPTRCP 
H:NEXT:MON 
URN 

A 0,66,66, 
1899 DATA 9,69,126 



2+16:PRINT »6, ATC2,43 ;"Y 
i ■ ■ 

5TEP -9.5J50UND 9,6 
,12,J:S0UND 2,69,12, 
:NEXT 

6,9,49,124,9,56,9 
8:RE5T0RE 1799 : POKE 

8JREST0RE 1889:P0KE 

8:RE5T0RE 1819 : POKE 

8IRE5T0RE 1828 ! POKE 

:FOR J=VARPTR CPLM2) + 
LM23 +392+RYIREAD CH : 
= 1 

99, 255, 219, 255, 231, 9 
,99,255,255,66,231,9 



TO 9 
1,129 
,12, J 
9 
6,9,1 

2,6, 
1779 

2,4, 
1779 

2,3, 
1779 

2,5, 



1810 DATA 8,69,126,9 
1828 DATA 8,69,36,69 
1839 PRINT tte^'IS-'SPO 

»6, ATC2,3) ;"congrat 
, ATC9,4) ;"a" 

184 9 PRINT «6,ATCi,5 

EEC" 

1859 FOR J=15 TO 9 5 
TO 19:S0UND 9,Ji,2, 
J:NEXT Jl:NEKT J 
1868 FOR J=l TO 589: 
1879 PRINT 86,ATC9,1 
play":IF PEEKC5327 
9: RUN 
1888 FORJ=l TO 258 : 

10);"GTSEHBE to GTJHO" 

THEN END 

1898 FOR J=l TO 258: 



9,255,255,195,8,9 
,24,255,69,192,9 
KE CHBA5,224:PRINT 
ulations":PRINT «6 



J;" 



SUCCESSFUL MISS 



TEP -9.5:F0R Jl=19 
JiSOUND 1,J1*5,19, 

NEXT:GOSUB 719 

93 ; "PRESS start T 

9) =6 THEN GOSUB 19 

NEKT:PRINT»6, ATC6, 
:IF PEEKC53279) =3 

NEKT:GOTO 1878 



TIME CRIME 

Objective: to travel to other time zones, find and collect as much 
treasure as possible while avoiding being eaten by one of the 
many creatures present. There are helpful features added to the 
game. You can press the fire button and be drawn one step closer 
to the treasure, but the price you pay is $50 for each step. Also, 
you can see if there is a creature (normally invisible) in your 
location by pressing the joystick handle and the fire button at 
the same time. The price for this is $200. Of course, since you 
need money to use either of these features the first treasure will 
have to be found solely by searching for it. 

The program requires Atari BASIC and 16K when used with 
cassette or 24K with disk. 



10 G05UB 3O60 

29 ? »6 J "*•". POSITION 1,0:? «6;"$"JL00T 

30 ON LOC G05UB L C13 , L C2) , L C33 , L C4) , L C 
5) , LC6) , LC7) , LC8) , LC9) 

40 POSITION MX,MY:PUT 86,1 

50 IF LOC=SHIP THEN POSITION SX,5Y:PUT 

1*6,251 
60 TM=PEEKC19)/14:P0KE 77,0 
70 POSITION 14,0:? »6;MAXMIN-INTCTM) ;" 

MIN." 
80 IF MAXMIN=TM THEN GOSUB 1OO0 : GOTO 2 



90 IF TM=CMAXMIN-0.5) THEN SOUND 1,0,4 

,1 

10O IF STRIGCO)=0 THEN GOSUB 210 

110 S=STICKC0) :NX=C5=5 OR S=6 OR S = 7) - 

C5=9 OR 5=10 OR S=iiJ 

120 NY=CS=5 OR S=9 OR S=13)-C5=6 OR S= 

10 OR S=14):IF NOT CNX OR NY) THEN 60 

125 OX=MX:OY=MY:MX=MX+NX:MY=MY+NY 

130 IF MX>19 THEN MX=0 : GOTO 300 

14© IF MX<0 THEN MX=19!G0T0 32B 

150 IF MY>11 THEN MY=1 ! GOTO 350 

160 IF MY<1 THEN MY=I1 ! GOTO 370 

170 LOCATE MX,MY,Z:IF Z=251 THEN POSIT 

ION OX,OY:? «6j" ";:GOSUB 100O:GOTO 60 

175 IF Z<>32 THEN MX=OX ! MY=OY ! GOTO 60 

313 



314 APPENDIX A 

186 IF MX=TXCLOC) AND MY=TYCLOC) THEN 

GOSUB 258 

185 POSITION OX,OY:? »6j" "j:POSITION 

MX,MY:PUT 86,i:SOUND 9,156,6,4 

198 SOUND e,6,8,8:IF CXCLOC)=MX AND CY 

CLOC)=MY THEN 468 

288 GOTO 48 

218 IF STICKC8)<>15 THEN 668 

215 IF L00T<58 THEN RETURN 

217 L00T=L00T-58:P0SITI0N 1,8:? tt6;"$" 
;LOOT;" » 

218 IF TYCL0C)=25 THEN SOUND 3,18,2,8: 
FOR T=l TO 28:NEKT T : SOUND 3,6,6,6:G0T 
245 

228 0X=MX:0Y=MY:0C=PEEKC789) : POKE 769, 

INT CRNDC8J«16)«16+12: SOUND 3, 288,16,8 

222 IF MX>TXCL6C3 THEN MX=MX"1 

225 IF MY>TYCLOC) THEN MY=MY~1 

238 IF MX<TXCLOC) THEN MX=MX+1 

235 IF MY<TYCLOC) THEN MY=MY+1 

248 POKE 789,6C:S0UND 3,6,8,8:P0P : GOT 

138 

245 IF STRIGC8i=6 THEN 245 

247 RETURN 

256 P6SITI0N TX CLOG) , TY CLOG) ! PUT 86,13 

7IF0R TME=1 TO 5 : SOUND 8 , 18 , 16 , 6 : FOR T 

IME = 1 TO 5: NEXT TIME 

255 SOUND 8,8,8,8:F0R TIME=i TO 28 : NEX 

T TIME: NEXT TME 

268 TY CLOG) =25! L66T=L60T+INT CRND C8) *18 

88«Z0NE3+188: POSITION 1,8:? »6;"$";L00 

TJRETURN 

386 L6C=L0C+l:IF L0C>9 THEN LOC=l 

318 GOTO 28 

328 LOC=LOC-l : IF L0C<1 THEN L0C=9 

338 GOTO 26 

350 L0C=L0C+3:IF L0C>9 THEN L0C=L0C-9 

366 GOTO 26 

376 L6C=L6C-3:IF L0C<1 THEN L0C=L0C+9 

388 GOTO 28 

466 F6R TME=1 TO 5 : POSITION CX CL0C3 , CY 

CL0C3:? »6j"e"j : SOUND 2,168,8,4 

418 FOR TIME=1 TO 9 : NEXT TIME : POSITION 

CXCLOC) ,CYCLOC) !? ae;"'"; 
426 S6UND 2,6,8,6:F0R TIME=1 TO 9 : NEXT 

TIMEINEXT TMESRETURN 
466 GOSUB 466:P6SITI0N 1,4:? »6;"A CRE 
ATURE GOBBLED YOU UP" : GOTO 528 

586 P6SITI0N 2,4:? »6j"Y0UR TIME MACHI 
NE":? »6j" LEFT MITHOUT YOU!" 



TIME CRIME 315 

516 POSITION 4,6:? 86;"LOOT $";LOOT 

526 IF LOOT>HI THEN HI=LOOT 

539 POSITION 2,7:? 86;"MOST LOOT $"JHI 



PLAY AGAIN? Y/N 



556 POSITION 3,9:? 86 ; "[ 

560 OPEN ttl l 4,0/ , K: ,, :GET 81,K:CLOSE 81 

579 IF K<>78 AND K<>89 THEN 560 

580 IF K=78 THEN POSITION 1,10:? 86;"T 
HANKS FOR PLAYING":FOR TM=1 TO 500 : NEK 
T TM5END 

590 GOSUB 308O:GOTO 20 

600 IF LOOT<200 THEN RETURN 

610 SOUND 0,290, 19, 8:IF CXCLOC) THEN G 

OSUB 4O0 

630 LOOT=LOOT-2O0:POSITION 1,9:? 86;"$ 

";LOOT;" "JSOUND 0,0,0,0 

640 IF STICKC0)<>15 THEN 640 

650 RETURN 

800 POSITION 2,2:? 86j"[Ujri 
"IFOR BY=3 TO 5:P0SITI0N 
£":NEXT BY 



iii iii 



818 POSITION 2,6!? tt6;"[UI 
":FOR BY=7 TO 9:P05ITI0N 

23 SS 2" 5NEKT BY 

820 POSITION 2,10!? 86;"[I 
H]": RETURN 
840 POSITION 2,2:? 86;"[H[ 



2, BY:? 86; "2 



1 V VI ■ ■ ■ ■■ 1 

■ i ■ i ■ i • I I I i 






2, BY:? »6j"lI 



ii 

,■,■ ■ lit I ■ Bui 



E":GOSUB 970:G0SUB 980 : GOSUB 990:RETUR 

N 

858 FOR BY=3 TO 4 : POSITION 2, BY:? 86;" 

[Tj":NEXT BYSFOR BY=8 TO 9:P05ITI0N 2, BY 

:? «6 ; n iJJ n :next by 

860 GOSUB 960:GOSUB 970 : GOSUB 980:RETU 

RN 

870 FOR BY=3 TO 4 : POSITION 17, BY:? 86 ; 

"•Tj":NEXT BY5FOR BY = 8 TO 9 : POSITION 17, 

BY:? 86; "[£" :NEXT BY 

880 GOSUB 960:G0SUB 980 : GOSUB 990:RETU 

RN 

890 POSITION 2,10:? 86 ; "Liiiiiiiilll 

HHJ-'sGOSUB 960SGOSUB 970 : GOSUB 990:RETU 

RN 

900 POSITION 2,2!? 86;" 



inn iiiiii 
fcMMMMiJ I I 



III 111* *■»!■■■ IJI 1 



i rm m t i^^ w i 
iiiiiiiiiiiii 



E":FOR BY = 3 TO 5 : POSITION 7, BY:? 86 ; "[I 

[p'iNEXT BY 
910 FOR BY=7 TO 9 : POSITION 7, BY:? 8 6; 



p'lNEKJBY: POSITION 2,10:? 86 ; "HI: 

II 



i n i n r v i-i 1 i r n 

■ - 1- - - - ■ - - 



316 APPENDIX A 

920 GOSUB 978 : G05UB 990 : RETURN 
936 FOR TREE=1 TO 10 : TX=INT CRND CO) *18) 
+1 :TY=INTCCRND CO) *4) +2) *2: POSITION TX, 
TY:PUT 86,134 

949 POSITION TH,TY-l:PUT 86,37;NEXT TR 
EE ' RETURN 

950 FOR SWAMP=1 TO 10 : TX=INT CRND CO) *17 
)+i:TY=INTCRNDC0)*9) +2: POSITION TX,TY: 
? 86;"ffl M :NEXT SWAMP: RETURN 
955 GOSUB 950: GOSUB 930 ! RETURN 
960 POSITION 2,2!? 86 J "[~ 
PRti • RETURN 

970 FOR BY=3 TO 9 : POSITION 17, BY:? 86; 
"E'-iNEKT BY: RETURN 



W l ■ WWP I * ■ ■ I 
■ IIHIIIIIIIIIIIIII1IIIHIMI 

m faf ---------------*- iMMMMMM 



980 POSITION 2,1©:? ttfi = "!'» '"J 

rgrri " ; RETURN 

990F0R BY=3 TO 9 : POSITION 2, BY:? 86 j " 

E":NEXT BY:RETURN 

10O0 IF MAXMINOTM THEN RETURN 

1O10 GRAPHICS 21:C=INTCRNDC0)*16) : 5ETC 

OLOR 0,C,8:SETCOLOR 1 , C , 8 : SETCOLOR 2,C 

, 4:C0L=i 

102O FOR I=0 TO 20:C0L0R COL 

1030 X=I*2:Y=I: SOUND 1,1*5,10,8 

104O PLOT X,Y 

105O DRAWTO 79-X, Y: DRAWTO 79~X,47-Y:PL 

OT 79-X-l,Y 

1069 DRAWTO 79-X-i,47-Y:DRAHT0 X,47~Y 

1070 DRAWTO X,Y!PL0T X+l , 47~Y 5 DRAWTO X 
+ 1,Y 

1088 COL=COL+0 . 5:IF C0L+0.5>=4 THEN CO 

L=C0L-3 

109O NEXT I:IF CMXOSX OR MYOSY) THEN 

2 9 
11O0 COLOR OIPLOT 44,2l!DRAWT0 36,21:P 
LOT 39,19:DRAWT0 39,17:DRAWT0 41,17:DR 
AWTO 41,19:PL0T 40,18:DRAWT0 49,23 
1110 PLOT 39,22:DRAWT0 39,23:DRAWT0 37 
,25:PL0T 4i,22:DRAWT0 41,23:DRAWT0 43, 
25 

2600 FOR TME = 1 TO 58 : TEMP=PEEK C708) : PO 
KE 7O8,PEEKC709) : POKE 709 , PEEK C710) : PO 
KE 710, TEMP 

2010 SOUND O,TEMP#15,10,4:SOUND 1,PEEK 
C708) ,18,4:F0R TIME=1 TO 10 : NEXT TIME: 
NEXT TME 

2O20 SOUND O,0. 0,O: SOUND 1 , 9 , 9 , 9 : GRAPH 
ICS 18HF CMXOSX OR MYOSY) THEN 50© 
2025 ZONE=ZONE+l! IF ZONE=10 THEN 4000 

2027 POSITION 4,4:? 86;"now entering": 



TIME CRIME 317 

POSITION 4,5:? tt6j"TIME ZONE tt";ZONE 
2036 FOR 5HU = 9 TO 2 STEP -I : NL=INT CRND 
C0)*SHU)+1:T=LCNL) ! L CNL) =L C5HU) ! L CSHU) 
=T:NEKT SHU 

2932 FOR CRE = 1 TO 9 : CY CCRE) =0 : CX CORE) = 
S NEXT CRE 

2035 FOR TRE = 1 TO 9 I TX CTRE) = INT CRND CO) 
*13)+3:TYCTRE)=INTCRNDC0)*6)+4:NEXT TR 
E 

2036 FOR CRE=i TO ZONE ! CK CCRE) = INT CRND 
C0)*13)+3:CYCCRE)=INTCRNDC0)*6)+4:NEXT 

CRE 
204O ON ZONE GOSUB Z CD , Z C2) , Z C3) , Z (43 
,Z(5) ,Z(6) , ZC7) , ZC8) , Z C9) 

2045 POKE 708, INT CRND C0)*16)*16+8 ! POKE 
709, INT CRND C0) *16) *16+8 : POKE 716, INT C 

RNDC8)*16)*I6+8 

2046 POKE 711,INTCRNDC8)*16)*16+8 
2050 LOC=INT CRND C0)*9)+l: POKE 712,INTC 
RNDC0)*16)*16+12:P0KE 20 J 0:P0KE 19,0:5 
HIP=LOC:POKE 756, START/256: RETURN 

206O RESTORE 2081 ! FOR TIME=I TO 7 : READ 

X 
2O70 FOR Y = TO 7 : READ Z ! POKE X+Y+5TAR 
T,Z:NEXT YiNEKT TIME : RETURN 

2081 DATA 24,239,239,239,0,254,254,254 
iO 

2082 DATA 40,60,126,255,126,60,24,24,2 
4 

2083 DATA 48,24,24,24,24,24,24,24,60 

2084 DATA 56,255,219,129,129,129,129,1 

2085 DATA 64,16,46,68,136,8,20,34,65 

2086 DATA 72,16,8,4,2,1,255,255,255 
2687 DATA 256,0,O,255,255,255,255,0,O 
2O90 RESTORE 2111 ! FOR TIME=1 TO 7 ! READ 

X 
2100 FOR Y=0 TO 7:READ Z ! POKE X+Y+STAR 
T,Z:NEXT YINEXT TIME : RETURN 

2111 DATA 24,224,238,238,238,14,238,23 
8, 224 

2112 DATA 49,189,90,189,24,24,24,24,24 

2113 DATA 48,24,24,24,24,24,60,66,129 

2114 DATA 56,178,255,213,129,129,171,2 
55,85 

2115 DATA 64,170,68,170,9,170,68,170,0 

2116 DATA 72,0,0,60,126,126,126,60,9 

2117 DATA 256,6,0,170,255,255,85,0,0 
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2139 RESTORE 2151 : FOR TIME=1 TO 7 : READ 
X 

2140 FOR Y = TO 7 ! READ Z i POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME:RETURN 

2151 DATA 24,255,255,255,255,255,255,2 
55,255 

2152 DATA 40 , 24 , 60 , 126 , 255 , 255 , 126 , 60 , 
24 

2153 DATA 48,24,24,24,24,24,255,60,255 

2154 DATA 56,24,36,66,129,129,66,36,24 

2155 DATA 64,130,68,46,16,65,34,26,8 

2156 DATA 72,6,32,112,36,14,68,224,64 

2157 DATA 256,0,6,6,255,255,0,6,0 
2166 RESTORE 2181 : FOR TIME=1 TO 7 : READ 

X 
2170 FOR Y=0 TO 7 ! READ Z : POKE X+Y+STAR 
T,Z:NEXT YlNEXT TIME ! RETURN 

2181 DATA 24,102,255,255,126,126,255,2 
55, 102 

2182 DATA 40,60,255,126,24,126,255,60, 
24 

2183 DATA 48,68,255,126,24,126,255,60, 
24 

2184 DATA 56,255,255,129,129,129,129,2 

CC T- KT C 

2185 DATA 64,56,238,0,28,119,0,56,238 

2186 DATA 72,112,56,28,8,28,56,112,224 

2187 DATA 256,8,0,0,255,255,6,0,0 
2200 RESTORE 2221 ! FOR TIME=1 TO 7 : READ 

X 
2210 FOR Y=0 TO 7 ! READ Z : POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME : RETURN 

2221 DATA 24,170,85,178,85,170,85,178, 
85 

2222 DATA 40,126,255,90,102,90,162,255 
,24 

2223 DATA 48,24,96,189,98,24,24,24,24 

2224 DATA 56,66,162,195,129,129,195,16 
2, 68 

2225 DATA 64,137,157,137,195,195,145,1 
85,145 

2226 DATA 72,6,128,126,6,66,66,6,8 

2227 DATA 256,6,6,6,255,255,6,6,6 
2246 RESTORE 2261 : FOR TIME=1 TO 7 : READ 

X 
2250 FOR Y=0 TO 7 : READ Z : POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME:RETURN 



TIME CRIME 319 

2261 DATA 24,170,179,178,178,176,176,1 
78,178 

2262 DATA 48,129,66,68,153,98,68,24,24 

2263 DATA 48,24,68,98,153,24,66,66,129 

2264 DATA 56,255,129,231,129,231,129,1 
29 255 

2265 DATA 64,73,8,8,146,8,8,73,8 

2266 DATA 72,153,62,96,68,6,124,24,129 

2267 DATA 256,255,129,129,231,129,231, 
129 255 

2288 RE5T8RE 2361 : F8R TIME=1 T6 7 ! READ 

K 
2298 FOR Y = 8 TO 7 : READ Z ! POKE X+Y+STAR 
T,Z:NEXT Y:NEXT TIME : RETURN 

2361 DATA 24,255,6,255,8,255,6,255,6 

2362 DATA 46,126,255,255,255,255,255,1 
26,66 

2363 DATA 48,66,68,66,68,66,68,255,255 

2384 DATA 56,255,129,135,225,135,225,1 
2365 DATA 64,198,198,8,24,24,8,198,198 

2386 DATA 72,8,16,56,124,56,16,6,8 

2387 DATA 256,255,129,225,135,225,135, 
129 255 

2328 RESTORE 2331 : FOR TIME = 1 TO 7 : READ 

X 
2338 FOR Y=6 TO 7 : READ Z : POKE X+Y+STAR 
T,Z:NEXT Y:HEXT TIME:RETURN 

2331 DATA 24,85,85,85,85,85,85,85,85 

2332 DATA 48,192,224,248,128,28,14,7,7 

2333 DATA 48,7,7,7,7,15,38,62,66 

2334 DATA 56,162,68,66,255,68,188,4,6 

2335 DATA 64,68,146,41,68,8,36,82,137 

2336 DATA 72,6,6,8,48,48,8,192,192 

2337 DATA 256,182,66,68,255,66,38,32,9 
6 

2386 RESTORE 2391 : FOR TIME=I TO 7 : READ 

X 

2398 FOR Y=8 TO 7 : READ Z ! POKE X+Y+STAR 
T,Z:NEXT YSNEXT TIME : RETURN 

2391 DATA 24,219,219,6,219,219,8,219,2 
19 

2392 DATA 48,63,126,252,248,248,224,96 
,96 

2393 DATA 48,96,96,96,96,96,96,96,96 
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2394 DATA 
13,213 

2395 DATA 

2396 DATA 
5 

2397 DATA 
171,171 
3699 POKE 



56, 171,171,2 55,255, 255,255,2 



64, 
72, 



16,46,2,37, 
6,24,36,66, 



86,4, 
129,2 



74,166 
55,255,25 



256, 213, 213, 255,255,255,255, 

GRAPHICS 18: 



166,PEEKC186)-5 
5TART= (PEEK C186) +13*256 
3616 POSITION 5,3:? «6 



TIME 
SITION 9,5:? 1*6 ; "by" : POSITION 



;"JACK HARDY" 

3626 DIM LC93 , 

YC93 :SET=8:LEVEL=1:HI=8 

3836 FOR TME = 9 TO 8 STEP ~1 ! F 

6 TO 48SS0UND 8 , TIME , 18 , TME : N 

3846 FOR TIME=68 TO 98 : SOUND 

, TME: NEXT TIME : NEXT TME 

3666 LC13=888:LC23=84e:LC33=8 

78:LC53=898:LC63=96e:LC73=938 

!L C93=955 

3876 ZC13=2868: Z C23 =2898 : Z C33 

3 =2166! Z C53 =2 286 : Z £63=2246 :Z C 

C83=2328:ZC93=2388 

3886 F6R SHU = 9 TO 2 STEP -UN 

C83*SHU3 +l:T = Z CNH3 :ZCNW3=ZCSH 

=T:NEXT SHU 

3896 Z8NE=8:MX=9:MY=6:SX=MX:5 

=6:IF SET=i THEN 3188 

3 1 16 DIM XSC383 :XS = ' ' hO 

■^oinarcn a n a ; ya a f i jt ♦ ■ • 

Z=USRCADRCXT5T: RESTORE 3 
FOR TIME = 1 TO 2 : READ X 
FOR Y=8 TO 7:READ Z : POKE 
NEXT Y:NEXT TIME:5ET=1 



CRIME" :PO 
5,6:? tt6 



ZC93 ,TXC93 ,TYC93 ,CXC93 ,C 



OR TIME=1 
EXT TIME 
1, TIME, 18 

58:LC43=8 
:LC83=958 

=2136:ZC4 
73=2286:Z 

N=INTCRND 
U3 :ZCSHU3 



Ki M3 ♦•! HY. 



Y=MY:LOOT 

jJ-ihT! 



3128 
3138 
3148 
T,Z 



8,56,56,16,124,124, 
472,56,56,16,56,188 



4, 



«6; 
16: 



••am 

? «6;' 



3156 DATA 

3168 DATA 

138 

3188 POSITION 3,9 

■";LEYEL:POSITION 

PLAY" 

3185 IF PEEKC532793=6 THEN 32 

3198 IF PEEKC532793=5 THEN LE 

+l:S8UND 8,38,18,4:IF LEVEL>3 

EL = 1 

3192 MAXMIN=4-LEUEL:P0KE 718, 

3*163*16+8:P0KE 711 , INT CRND CO 

8 

3195 FOR TM=1 TO 38:NEXT TM:S 

8,8:G0T0 3188 



158 

X+Y+STAR 

56,46,48 
,254,186, 



LEVEL - 
TO 



88 

VEL=LEVEL 
THEN LEU 

INT CRND C8 
3*163*16+ 

6UND 8,6, 



TIME CRIME 321 



3200 
4666 

SB" :P 
11" 

4616 

s"; :P 

AKEN 

4626 

4636 

I 

4646 

16 TO 

ME*5, 

4656 



G05UB 1610:RETURN 

POSITION 2,1!? »6;"[ 

05ITI0N 2,3:? O6j"you pilliaged a 



CONGRATULATION 



POSITION 3,4:? «6;"nine tine zone 

LIT tt6,l:P0SITI0N 1,6!? «6;"L00T T 

$";LOOT 

IF LOOT>HI THEN HI=LOOT 

POSITION 2,7:? »6;"M05T LOOT $";H 

FOR TIME=15 TO 6 STEP -1 : FOR TME= 
15JS0UND 8, TME, 16, TIME; SOUND I,T 
16, TIME: NEXT TME : NEKT TIME 
GOTO 558 



THE CREATOR 

This is a straightforward program to create an adventure by 
using the disk drive to store adventure data. Only one adventure 
per side of a disk is permitted because the names of the files 
that hold the information would conflict. 

The program requires Atari BASIC, 16K and disk drive. 



18 GR 

nture 

20 P0 
SITIO 
36 PO 



EN 
40 
50 
10 
0) 
55 



82 
GE 
GR 
12 
DI 
RD 



NA$ = " 
60 PO 
TRUCT 
70 GE 



APHICS 
"."POSI 
SITION 
N 3,7: 
SITION 

,4,0," 

T 82, K 

APHICS 

IPOKE 

5$ £14) 

$C1)=" 

":DIS$ 

SITION 

IONS? 

T 82, K 



18 : 
TION 

4,6 
? 86 

4,9 
K : " 
:IF 

: 
712. 
, RDS 

" : R 

— III! 

~2,4 
CY/N 
!IF 



POSITION 5,3:? 86;"adve 
6,4:? 86;"creator" 

!? 86j"INSERT NEHLY":P0 

; "FORMA TTED DISK" 

:? 86 : " IJ;iafcl.-M;l*IMr3n " : op 




:PRINT "DO YOU NEED INS 

)" 

K<>78 AND K<>89 THEN 78 



88 IF K = 89 T 
188 DI5$="D: 
118 ? "*": PO 
NAME OF THIS 
TO 20 CHARA 
115 ? "FOR S 

■ and lower 

120 TRAP 120 
130 TRAP 110 
l;NA$ 

140 NA$= ? 

OF 20 LETTER 
150 TRAP 150 
160 PRINT 81 
180 ? "*":P0 
MPLETED!"!GO 



HEN GOSUB 2000 
ADVENAME": CLOSE 81 
SITION 2,4:? "HHAT IS THE 

ADVENTURE PLEASE LIMIT 
CTERS ■ " " ? 
PECIAL COLORS USE EEEEH1 

case LETTERS! !" :? 
SINPUT 83,NA$ 
9: OPEN 81,8,0,DIS$:PRINT 8 

"INPUT YOUR NAME - LIMIT 
S" : "* 

SINPUT 83,NA$ 
JNA$:CL0SE 81 

SITION 2,4:? "PHASE ONE CO 
SUB 1O0O:DIS$="D: ADUEN.DAT 



198 PRINT "IS": POSITION 2,4:PRINT "INPU 
T NUMBER OF ROOMS ":? :TRAP 190: INPUT 
83, NR 
200 IF NR<5 THEN ? "A ";NR;"-ROOM DUNG 



323 
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EON 

NE!" 

216 

TE A 

E DI 

215 

228 
IN 

,OBS 

225 

SITE 

2)=I 

236 
MU5 
LET 

232 

KE T 

ORD 

234 

END 

E PR 

236 

or 

RETE 

237 

E" 

238 

239 

ASE 

OSUB 

246 

258 

";LP 

N 25 

255 

268 

F "J 

R TH 

262 

265 

$:? 

278 
UAL 
265 

275 

288 

= 1 T 

CLP) 

298 

MPLE 



IS UERY 
: G05UB 
IF NR>5 
58-R00 
SK."!GO 
OPEN «1 
? :? "H 
YOUR A 
:IF OBS 
DIM IRN 
M$C1)=" 
TEM$ 
? "^"SP 
T BE MO 
TERS." 
f • ■•> "V 

HE F 
D 

MOULD B 
OGRAM." 
? "YOU 

'HEA 
R HOUL 

? : ? "P 



SMALL."!? "MAKE A BIGGER 
1886:G0T0 198 

8 THEN ? "YOU CAN ONLY CREA 
M DUNGEON ON ONE SIDE OF TH 
SUB 1888:G0T0 198 
,8,8,DIS$:PRINT ttljNR 
OH MANY MOVABLE OBJECTS ARE 
DOENTURE" : TRAP 226:INPUT »3 
<=6 THEN 228 
COBS) , U I COBS) , ITEMS C0B5*28) 

":ITEM$C0BS*28)=" " ! ITEM$ C 

OSITION 2,4!? "OBJECT NAMES 
RE THAN 3 AND LESS THAN 28 

OU MUST ALSO REMEMBER TO MA 
IRST FOUR LETTERS OF EACH H 
I5TINCTLY DIFFERENT." 

aaaaaoai bookcase and book 

Y CONSIDERED THE SAME BY TH 



COULD SAY 'DUSTY BOOKCASE' 

MY BOOKEND' THEN THE INTERP 
D UND ERSTAND." 

RESS ■.JzIiTddBT^-T TO CONTINU 



GET «2,K:IF K<> 
? "*":POSITION 
LETTERS FOR RES 

1888 
FOR LP=1 TO OBS 



32 THEN 238 
2,4:? "QUSE 
T OF PRO 



UPPER C 
GRAM.":G 



TRA 

:? 

8 

ITE 

TRA 

NA$ 

EN 

IRN 

TRA 

SIN 

IF 

UE 



P 258: 
: INPUT 



"INP 
«3,NA 



:? "iS":POSI 
UT NAME OF 



TION 2,4 

OBJECT « 

$!IF LENCNA$) <4 THE 



19, 



M$CLP*28 

P 266:? 

!? : INPUT »3 

268 

CLP) =RM 

P 265:? !? " 

PUT »3,V 

u>2eeeee the 

CAN ONLY BE 



LP*28)=NA$ 
INPUT ROOM 
,RM:IF RM<1 



NUMBER 
OR RM>N 



INPUT UALUE OF ";NA 



N ? "SORRY, 
$28668 



MAXIMUM 
8. "IGOTO 



UICLP)=U:NA$= NEXT LP 

PRINT »l;OBS:PRINT »1 ; ITEM$ : FOR LP 
OBS:PRINT »l;IRNCLP) SPRINT BljUI 
: NEKT LP : CLOSE ttl 

? "IS": POSITION 2,4:? "PHASE THO CO 
TED! !":GOSUB 1868 : DIS$="D : ROOM" 
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389 FOR LP = 1 TO NR : ? "IS" : POSITION 2,4 

310 IF LP<10 THEN DI5$ C7 , 7 ) = 5TR$ CLP) : G 

OTO 330 

320 DIS$C7, 8) =STR$CLP) 

338 ? "INPUT DESCRIPTION OF ROOM 8";LP 

!? "CMAHIMUM OF THREE LINES)" 

332 ? "FORMAT SCREEN 50 WORDS ARE NOT 

SPLIT BETWEEN LINES.":? 

335 TRAP 335:INPUT 83,RD$ 

348 ? :? "INPUT ROOM NUMBER FOR EACH D 

IRECTION NORTH, SOUTH, E AST , WEST , UP , DOW 

N" : 7 

358? "IF NO ROOM IN THAT DIRECTION, E 

NTER 8":? 

368 TRAP 1288:INPUT 83 , N , 5 , E , W, U t D 

378 OPEN 81,8,8,DIS$:PRINT 81;RDS:PRIN 

T 81,N:PRINT 81,S:PRINT 81,E:PRINT 81, 

WlPRINT 81,U:PRINT 81,D:CL05E 81 

380 NEXT LP 

398 ? "«": POSITION 2,4!? "PHASE THREE 

COMPLETED! ": GOSUB 1888 

488 ? "IS":POSITION 2,4:? "ARE THERE AN 

Y ROOMS THAT NEED A SPECIAL ITEM 

TO GAIN ADMITTANCE. CY/N) " 
418 GET 82,K!IF K<>89 AND K<>78 THEN 4 
18 

428 IF Kr78 THEN 888 

438 ? :? "PLEASE LIMIT ROOMS TO A TOTA 
L OF 24. CMAKIMUM OF 4 IN EACH DIRECT 
ION) ." 

435 ? :? "HOW MANY ROOMS ARE NORTH?" :G 
OSUB 1258 

458 IF K=8 THEN 588 

468 OPEN »1,8,8,"D: SPNORTH . DAT" : PRINT 
81 J K 

478 GOSUB 1388:G0SUB 1488 

588 ? !? "HOW MANY ROOMS ARE SOUTH?" ! G 
OSUB 1258 

528 IF K=8 THEN 558 

525 OPEN 81,8,8,"D:SPS0UTH.DAT":PRINT 
81 jK 

538 GOSUB 1388:G0SUB 1408 

558 ? :? "HOW MANY ROOMS ARE EAST?":GO 
SUB 1258 

568 IF K=8 THEN 688 

578 OPEN 81,8,8,"D:SPEAST.DAT":PRINT 8 
1 " K 

575 GOSUB 1388SG0SUB 1486 
688 ? :? "HOW MANY ROOMS ARE WEST?":GO 
SUB 1258 
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619 IF K=0 THEN 659 

615 OPEN tti,8,8,"D:5PWEST.DAT":PRINT tt 

1 i K 

629 GOSUB 1399:G0SUB 1499 

656 ? :? "HOW MANY ROOMS ARE UP?":G05U 

B 1259 

669 IF K=9 THEN 799 

665 OPEN »1,8,8,"D:SPUP.DAT":PRINT ttlj 

K 

676 GOSUB 1388SG0SUB 1499 

799 ? :? "HON MANY R00M5 ARE DOWN?":GO 

SUB 1259 

719 IF K=9 THEN 899 

729 OPEN ttl,8,8,"D:5PD0WN.DAT":PRINT tt 

1 i K 

739 GOSUB 1399SG0SUB 1499 

899 ? "IS":P05ITI0N 2,4:? "PHASE FOUR C 

OMPLETED!":GOSUB 1999 

819 ? "K":POSITION 2,4:? "ARE THERE AN 

Y CREATURES TO FIGHT? C Y/N) " : ? 

829 GET tt2,K:IF K<>78 AND K<>89 THEN 8 

28 

839 IF K=78 THEN 999 

849 ? 5? "HOW MANY CREATURES" : TRAP 848 

858 IF NC$NR THEN ? "THERE ARE MORE MO 
NSTERS THAN ROOMS IN YOUR DUNGEON" : GOS 
UB 1899SG0T0 848 
868 OPEN ttl,8,8,"D:CREATURE.DAT":PRINT 

ttl,NC 
879 DIM MONCNOIFOR LP = 1 TO NC : ? "*5":P 
OSITION 2,4 

888 ? "INPUT ROOM OF CREATURE tt";LP:TR 
AP 888:INPUT tt3,RM 
885 MON CLP) =RM: NEXT LP 

898 FOR LP=i TO NC : PRINT ttl ; MON CLP) : NE 
XT LP:CL05E ttl 

895 ? "IS"! POSITION 2,4:? "PHASE FIUE C 
OMPLETED!":CLOSE tt3 ! GOSUB 1888 
988 ? "ARE YOU READY TO TRY YOUR DUNGE 
ON? CY/N)" 

918 GET tt2,K:IF K<>89 AND K<>78 THEN 4 
18 

929 IF K=78 THEN END 

938 TRAP 978:? " INSERT DISK WITH INTER 
PRETER CEOBEH RETURN." 

948 GET tt2,K:IF K0155 THEN 948 
958 CLOSE »2:RUN "D : INTERPRE . TER" 
960 END 
978 TRAP 4888e:0PEN tt2 , 4 , 8 , "K : " : GOTO 9 
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38 

ieee 

N 

1169 

K DI5 

1119 

1129 

1280 

A NU 
SUB 1 
1250 
1260 
EASE 
1270 

1300 

OU MU 
ICH L 
1310 
:GOS 

1400 

1410 
NUMB 

CLP) = 

1420 

EDED 

STRAP 
1430 
RCLP) 
»l:RE 

2000 

ST DE 
2005 
RE MA 

2010 

ALUE 

2020 

ITEMS 

SPECI 

2025 

LL RO 

2030 
■ i 

2040 
PLAY 
TER 
2056 



FOR WAIT=i TO 400INEKT WAIT : RETUR 



TRAP 4 
K AND 
GET «2 
GOTO 1 
TRAP 4 
MBER F 
000SGO 
? "ENT 
GET »2 
LIMIT 
RETURN 
? "*": 
ST ENT 
ETS YO 
? "TO 
UB 100 
FOR LP 
? "INP 
ER "!T 
RM 

f ; f II 
TO 

1420: 
NEXT L 
: PRINT 
TURN 
? "IS": 
SIGN 

P 
? 

TH 



9000;C LOSE ttli ? : 

MfTlSTTTPTTHBI 

K<>1 5 5 THEN 



PRESS RETURN 



, K : IF 
30 

00O0 : 
OR EA 



? "Q UNLOC 
111© 



QYOU MUST ENTER 
DIRECTION. ":GO 



TO 
ER 
,K 
TO 



34 



K = 

4 



PRINT 

CH 

O 

IF NONE!" 
K-48HF K>4 THEN ? 
OR LE5S":G0T0 1260 



'PL 



AL 



MS 



? '* 

? " 

? " 

■7 " 



POSIT 
ER TH 
U GAI 
THE S 
0:RET 
= 1 TO 
UT «" 
RAP 1 

INPUT 
GAIN 
? :IN 
P:FOR 

«l;I 

? "BE 
YO 
FIRST 
AND N 
SECON 
CONTE 
THIRD 
BY NU 
ROOMS 
FOURT 
NHICH 
FINAL 



ION 2,4!? "REMEMBER, Y 

E NUMBER OFTHE ROOM WH 

N ACCESS" 

ECRET ROOM.":GOSUB 1O0 

URN 

K:? "IS":POSITION 2,4 
;LP:? :? " - FROM ROOM 
410!? :INPUT »3,RM:DIR 



ITEM N:ili:i:lai:Mii:i*^l NE 
ACCESS FROM ROOM tt";RM 
PUT «3,IT:ITEMCLP)=IT 

LP=1 TO KlPRINT «l;DI 
TEMCLP):NEHT LP : CLOSE 

FORE YOU BEGIN, YOU MU 

UR DUNGEON ON PAPER." 

, LAY OUT YOUR ADUENTU 

UMBER YOUR ROOMS." 

D, LIST, NUMBER, AND U 

NTS OF EACH ROOM." 

, CONSTRUCT A LIST OF 

MBER NEEDED TO ACCESS 
■ i 

H, PREPARE A LIST OF A 

CONTAIN CREATURES." 
LY, ENTER ALL THE DATA 



206O 
2070 



"THEN, ANY TIME YOU 
ADVENTURE, LOAD IN 
AND RUN." 
752,l:P05ITI0N 4,23 
TO CONTINUE"; 
GET «2,K:IF K<>32 THEN 2060 
POKE 752,0:RETURN 



YOUR 
POKE 



NANT TO 
INTERPRE 



? "PRESS 



SPACE BAR 



INTERPRETER 

This program accompanies the preceding one and is used to play 
the adventure which was created with that program. 

The program requires Atari Basic, 16K and disk drive. 



10 GOSUB 2888:G0T0 30 
28 IF R00M=1 THEN GOSUB 1990 
30 M=8:N=8:S=8:E=8: W=8: U=8:D=8: 5PD=0:D 
I5$C7,8)=" ":DIS$C7,83 =5TR$ CROOM) : TRA 
P 1750 

40 OPEN ttl, 4, 8, DI5$: INPUT »1 , Rl>$ ! INPUT 
ttl,N:INPUT 8i,S:INPUT »1,E:INPUT ttl , W 
.INPUT ttl,U! INPUT Oi.D: CLOSE ttl 
45 POKE 718, INT CR00M/3 . 51 *16+2 ! POKE 71 
2,PEEKC718) 

50 PRINT "IS": POSITION 2,0:? "HH 
|$"J MONEY ! POSITION 21,0:? "[ 

print " Ui i ti Mni i innnn ii iMm 

[ ii in i lT3' 

70 PRINT ' 

■■■■■H" : PRINT : PRINT RD$ 

88 PRINT '.PRINT "I,,,,,,,,— 

■■'■'"■■■"'■■■•■^ii 

llllllL. 



HEALTH 
♦♦ STRENGT 



LOCATION: 



90 PRINT - "!] 




THERE ARE EXITS 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
20O 
219 
220 
238 



PRINT 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

PRINT 

PRINT 



IF 



SN THEN GOSUB 
N THEN PRINT "NORTH, 
SS THEN GOSUB 1520 
S THEN PRINT "SOUTH, 
SE THEN GOSUB 1548 
E THEN PRINT "EAST, ' 
SW THEN GOSUB 1568 
H THEN PRINT "WEST, ' 
SU THEN GOSUB 1588 
U THEN PRINT "UP, "j 
SD THEN GOSUB 1688 
D THEN PRINT "DOWN, ' 

: PRINT *~~ 



1588 



ITEMS YOU 



248 PRINT :FOR LP=1 TO OBS 
258 IF IRNCLP)=ROOM THEN I$=ITEM$ tLP«2 
8-19, LP*28) : GOSUB 1658 : PRINT 1$;", ";: 
1$ = "" 
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260 NEXT LPsPRINT ■•«■«■ " 
279 FOR L = l TO CRE : IF MOMCL)=ROOM 
PRINT "THERE 15 A MONSTER HERE!" 
275 NEXT Li PRINT 
288 PRINT 

I" SPRINT 



THEN 
:M=L 



INSTRUCTIONS: 



298 PO 

M$=""s 

388 IN 
HEN 48 
318 FO 
EN DIR 
328 NE 

THAT! 
338 IF 

LET Y 
335 ON 
8 

348 IF 
345 GO 
358 IF 
355 GO 
368 IF 
365 GO 
378 IF 
375 GO 
380 IF 
385 GO 
398 IF 
395 IF 
397 PR 
TION!" 
468 FO 

" THE 

428 
418 NE 
428 FO 
2,L*3) 
438 NE 
MY UOC 
446 ON 
6,538, 
1888 
458 FO 

THEN 
466 NE 
5GOTO 
478 FO 
*28-19 
486 NE 



KE 764,255:P6KE 752,8:TRAP 1768: 

TTt-llll 

PUT~M$ SPOKE 752,1! IF LENCM$)>1 T 

8 

R LP=i TO 6SIF DIR$CLP,LP)=M$ TH 

=LP:POP sGOTO 338 

XT LPSPRINT "I DIDN'T UNDERSTAND 

"SGOTO 1716 

M THEN PRINT "THE MONSTER WON'T 
OLM":GOTO 1716 

DIR GOTO 348,358,366,378,386,39 

N THEN ROOM=N:GOTO 28 
TO 395 

S THEN ROOM=S:GOTO 28 
TO 395 

E THEN ROOM=E:GOTO 28 
TO 395 

N THEN ROOM=W:GOTO 28 
TO 395 

U THEN ROOM=U:GOTO 28 
TO 395 

D THEN ROOM=DjGOTO 28 

SPD THEN 1726 
INT "YOU CANT'T GO IN THAT DIREC 
SGOTO 1718 

R LP=1 TO LENCM$)SIF M$CLP,LP)=" 
N TI$=M$CLP+1,LENCM$)) S POP S GOTO 



XT LP 

R L=l TO 16SIF M$C1,3)=V0C$CL*3- 

THEN WOC=L:POP SGOTO 446 
XT LSPRINT "THAT IS NOT PART OF 
A6ULARY!":G0T0 1716 

UOC GOTO 450,458,456,478,476,53 
576,576,616,616,788,766,758,756, 

R L=l TO 6SIF TI$C1,1)=DIR$CL,L) 

DIR=L:POP SGOTO 336 

XT LSPRINT "YOU CAN'T GO THERE!" 

1710 

R L=l TO OBSSIF TI$C1,4)=ITEM$CL 

,L*28-16) THEN POP S GOTO 498 

XT LSPRINT "YOU CAN'T TAKE A ";T 
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I$:GOTO 1716 

499 IF IRNCL)=9 THEN PRINT "YOU ALREAD 
Y HAVE IT!":GOTO 1719 

599 IF IRNCDOROOM THEN PRINT "THAT I 
TEM 15 NOT HERE!":GOTO 1719 
519 IF ST-INTCVICL)/1989)<8 THEN PRINT 
"YOU ARE TOO WEAK TO CARRY THAT ITEM! 
":GOTO 1719 

512 FOR LP=1 TO 5N+5S+5E+5W+5U+5D : IF I 
TEMCLP)=L THEN TEMP CLP) =L : ITEM CLP) =9 
515 NEXT LP 

529 ST=5T-INTCUICL)/I999) : MONEY=MONEY+ 
VICL) :IRNCL)=9:G0T0 39 

539 FOR L=l TO OBS : IF TIS CI, 3) =ITEM$ CL 
*29-19,L*29-17) THEN POP :GOTO 545 
549 NEXT LiPRINT "DROP WHAT ! ! ! " ! GOTO 1 
719 

545 IF M AND RNDC9)>9.5 THEN PRINT "YO 
U'VE BEEN ATTACKED!":GOSUB 2599 : GOTO 7 
79 

547 FOR LP=1 TO SN+5S+SE+5W+SU+SD : IF T 
EMPCLP)=L THEN ITEM CLP) =L : TEMP CLP) =9 

548 NEXT LP 

559 IF IRNCL)=9 THEN IRN CL) =ROOM ! ST=5T 
+ INTCMICD/1999) : MONEY=MONEY~UI CL) :GOT 
59 

569 PRINT "YOU'RE NOT CARRYING IT ! ! " : G 
OTO 1719 

579 FOR L=l TO 0B5:IF TIS CI , 3) =ITEM$ CL 
*29-19,L*29-17) THEN POP : GOTO 599 
589 NEXT L:PRINT "IT LOOKS LIKE A ";TI 
$;"! !"!GOTO 1719 

599 IF IRNCDOROOM AND IRNCL)<>9 THEN 
PRINT "IT'5 NOT HERE TO LOOK AT!":GOT 
1719 

699 PRINT "I SEE NOTHING SPECIAL !": GOT 
1719 

619 FOR L=l TO OBS ! IF TlS CI , 3) =ITEM$ CL 
*29-19,L*29-17) THEN POP : GOTO 639 
629 NEXT LlPRINT "IT FEELS LIKE A ";TI 
$j"!":GOTO 1719 

639 PRINT "IT FEELS " ; : F=INT CRND C6) *6) 
+l:ON F GOTO 649,650,669,679,689,698 
649 PRINT "ROUGH! ! " : GOTO 1719 
659 PRINT "SMOOTH! !":GOTO 1719 
669 PRINT "WET! ! " : GOTO 1719 
679 PRINT "DRY !!": GOTO 1719 
688 PRINT "COLD!":GOTO 1718 
699 PRINT "WARM!":GOTO 1719 
799 PRINT "IF YOU HAVE THE CORRECT OBJ 
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ECT, 

Y ! t" 

759 

760 

GHT ! 

770 

MONS 

6 :PO 

775 

780 

*80) 

790 

03+3 

890 

3+10 

810 

03*8 

850 
TH " 
R ST 
860 



TO 1 
M TH 
NT " 
OTO 
NT " 

IS 
752, 
F GO 
NT " 
GOTO 
NT " 
OTO 
NT " 
TO 8 
NT " 
20 :G 



PRIN 

870 

INT 

880 

890 

BAR 

900 

0:MS 
IFOR 
910 
ED T 
250 
920 
930 



: GO 

IF 

PRI 

" : G 

PRI 

TER 

KE 

ON 

PRI 

+ 5 ! 

PRI 

0:G 

PRI 

:GO 

PRI 

©) + 

POSIT 

;mst; 

RENGT 
POSIT 
":ML = 
T "MO 
YL = IN 
"YOU 
IF PE 
POSIT 
"!FOR 
COL = P 
T = MST 

T = l 
IF MS 
HE CR 
OsPOK 
IF ST 
POKE 



THE I 
710 
EN 77 
THERE 
1710 
IS" : PO 
A "; : 
i:F = I 
TO 78 
HOBGO 

850 
DRAGO 
850 
ZOMBI 
50 

GIANT 
OTO 8 



TEM OPENS AUTOMATICALL 



IS NOTHING HERE TO FI 



SITION 
POKE 71 
NTCRNDC 
0,790,8 
BLIN! !" 

N! ! ":MS 

EM": MS 

SPIDER 
50 



2,4;PRINT "THE 
0,66:POKE 712,6 
03*43+1 

00,810 

:MST=INTCRNDCO) 
T = INT CRNDCO3*10 
T=INTCRNDC03*40 
!":MST=INTCRNDC 



ii ■ 
j 



ION 
ii i 

H 

ION 

INTC 

NSTE 

TCRN 

LOSE 

EKC7 

ION 

T = l 
EEKC 
-ML: 
TO 5 
T< = 
EATU 
E 75 
< = 
710, 



1,8!PRINT 
': POSITION 

ST; 

12, 
RND 
R L 
DCO 



TER STRENG 
PRINT "YOU 
64,255 



643 
12, 

TO 
710 
5T = 
SN 

TH 
RE! 
2,0 
THE 
COL 



195PRI 

C03*10 

OSES " 
3*63 :P 
YL 

<>255 
19:PRI 
10 1NE 
3 :POKE 
ST-YL: 
EKT T: 
EN PRI 
!"; :mo 
:goto 

N 1880 
: POKE 



"MONS 

1,10: 
POKE 7 
NT "| 
3 5POSITION 5,14! 
J ML 
OSITION 24,14:PR 



PUSH SPACE 



THEN 9 
NT " P 
XT T:G 

710,0 

SOUND 
SOUND 
NT " 
NCM3=0 
45 



00 

USH SPACE 
OTO 866 
JPOKE 712, 

0,100,2,10 

0,0,0,0 

YOU KILL 
:M=0:GOSUB 



712,C0L:G0T0 850 



100O PRINT "*"!PRINT 



G: - - VALUED AT: 



i ii 

!■ ■ 



YOU ARE CARRYIN 



1010 

THE 
"► 

1020 



"K!" 

103O 
1040 

150O 

ITE 

SPD = 



PRINT :FOR L=l TO OBS ! IF IRN CL3 =0 

N PRINT ITEMS CL*20-19,L*203 ,' SPRINT 

$"jVICL3 

NEXT Li POSITION 5,22:PRINT "TOUCH 

TO CONTINUE":OPEN 82,4,9, 



SPACE BAR 



GET »2,K:IF K<>32 THEN 1030 
CLOSE «2:G0T0 50 

FOR LP=1 TO SNSIF SR C LP3 =ROQ M 
MCLP3 THEN N = : PRINT "ETJEDE1, 



AND 

III! 

* ' 
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1519 NEXT LP: RETURN 

1529 FOR LP=5N+1 TO SN+SSlIF SRC LP)=RO 

OM AND ITEMCLP) THEN 5 = 9:PRINT " JHDTHI] 

I, "j :SPD=1 

1539 NEXT LP: RETURN 

1549 FOR LP=5N+55+l TO SN+55+5E : IF SRC 

LPJ=ROOM AND ITEMCLP) THEN E = 9 ! PRINT " 

11191, ••; :5PD = i 

1559 NEXT LP! RETURN 

1569 FOR LP=5N+S5+SE+1 TO SN+SS+SE+SH: 

IF 5R C LP)=RO OM AND ITEMCLP) THEN W=9 : P 

RINT "Kr^Dl, "i :SPD=1 

1579 NEXT LP:RETURN 

1589 FOR LP=SN+5S+SE+SH+1 TO 5N+55+5E+ 

5W+5U:IF SRC LP)= ROOM AND ITEMCLP) THEN 

U = 9:PRINT "MUM, ";:5PD=l 
1599 NEXT LPlRETURN 

1699 FOR LP=5N+55+5E+5W+5U+l TO 5N+55+ 
SE+SH+SU+SD:IF SRC LP)=RQ QM AND ITEMCLP 
) THEN D = 0:PRINT " ■JO' .'■ ■ ";:SPD=1 
1610 NEXT LP:RETURN 

1659 IF 1$ CLEN CI$) , LEN CI$) ) =" " THEN I 
$=I$ C1,LEN CI$) ~1) : GOTO 1659 



1669 RETURN 

1799 PRINT 

RAP 49999 

1 719 FOR LP=1 TO 259 

tntHHED" : GOTO 296 

1729 PRI NT " 

aasniiaai 

t":GOTO 1719 

1759 ? "fS"! POSITION 2, 

DIRECTORY FOR ROOM 8";R00M 
1809 GRA PHICS 18: POSITION 5, 

POSITION 5,2! 



the Monster 



■QPLEASE SAY THAT AGAIN 



NEXT LP:PRINT "ft 



K EXITS LISTED IN INVERSE 
■ SPECIAL OBJECTS TO USE!! 



"QCHECK DISK 
STOP 

l: PRINT 86 
PRINT 86!" 



PRINT 86;"TREA5URES 



1819 LN=INT C C28-LENCNA$))/2) 

LN,4:PRINT 86]NA$:G05UB 2469 

1815 POSITION 1,6 

$";MONEY 

1828 P OSITION 2,8 

MCHUJ-'iOPEN « 2 ,4 

1839 GET 82, K: IF 

1839 

1849 CLOSE 82:IF K=89 THEN 

1858 POSITION 1,9:PRINT 86 J 

PLAYING!": FOR L=l TO 299 
1999 GRAPHICS 18 : POSITION 



POSITION 



PRINT 86 
8 "K : " 
K<$78 ' AND 



TRY AGAIN? 



K<>89 THEN 



YOU ARE IN ROOM 81 



RUN 

"THANKS FOR 
NEXT L:END 
l,l:PRINT 86 



1918 POSITION 1,3:PRINT 86;"Y0U HAVE $ 
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";MONEY:POSITION 4,4:PRINT 

SURE" 

1929 LN=CC26~LENCNA$) ) /2) : 

6:PRINT »6;NA$:G0SUB 2566 

1936 P65ITI0M 5,8:PRINT «6 

t":P6SITI0N 1,9:PRINT tt6;" 

CY/N)":OPEH tt2,4,8,"K:" 

1946 GET tt2,K:IF K<>78 AND 

1946 

1956 CLOSE tt2:IF K=78 THEN 

7 SPRINT tt6j" 

T=l TO 256SNEKT T ! END 

1966 GRAPHICS 8 : POKE 716,9 

2666 GRAPHICS 18 : POSITION 

sert":POSITION 6,4:? »6;"A 

SITION 8,5:? tt6 

2619 POSITION 5,8 

OPEN »2,4,9,"K:" 

2929 GET «2,K:IF K<>155 TH 

2939 CLOSE tt2 : DIM TI$C28), 

C14J , DIR$C63 , V$C3) , UOC$ C48 

29) , RD$C129) ,SRC24) ,ITEMC2 



tt6;"IN TREA 
POSITION LN, 

;"do you wan 
to continue 

K<>89 THEN 

POSIT ION 8, 
~I M :FOR 



^'DISK" 



«6; 



PROSPER! 



:RETURN 
7,3:? tt6; "in 
DUENTURE":PO 



PRESS RETURN 



2935 RD$C1)=" ":RD$C129)=" 

$! V0C$ = RD$C1,48) 

2949 NA$=RD$C1,29) !TI$=NA$ 

M":SN=9:SS=9:SE=9:SW=9:su= 

l:M0NEY=9:ST=9 

2945 FOR L=l TO 24:SRCL)=8 

EMP CL)=9:NEHT L 

2959 TRAP 2799 : OPEN ttl , 4 , 9 

":INPUT «1,TI$:INPUT ttl, HA 

N=INTCC29-LENCTI$))/2) 

2969 TRAP 49999:? tt6j"fS n :P 

!? »6;TI$:LN=INTCC29-LENCN 

2965 POSITION 9,7:PRINT »6 

ON LN,8:PRINT tt6;NA$ 

2979 FOR = 8 TO 15 STEP 9. 

,12,V:S0UND 1,129, 12, U : SOU 

ISOUND 3,129, 12, V : NEXT U 

2989 FOR 0=15 TO 9 STEP -9 

9,12,U:50UND 1, 128,12,U:S0 

0: SOUND 3,128, 12, U:NEHT U 

2999 OPEN ttl, 4, 8, 

1,NR:INPUT ttl,OBS 

,ITEM$C28*0BS) 

2199 INPUT ttl, ITEM$ : FOR LP 

PUT ttl,RM:INPUT ttl,VA:IRNC 

)=UA:NEXT LP: CLOSE ttl 

2119 TRAP 2139:0PEN ttl , 4 , 9 

DAT":INPUT ttl, SN 



EN 2929 
NA$C29) ,DIS$ 
) ,M$C39) ,I$C 
4) , TEMPC24) 
":RD$C2)=RD 



"D: ADUEN. 
DIM IRNC 



:DIS$="D:ROQ 
: SD = 8 : ROOM= 

:ITEMCL)=9:T 

,"D: ADUENAME 
S: CLOSE ttlJL 

OSITION LN,4 

A$))/2) 

;"BY"!POSITI 

5:S0UND 9,66 
ND 2,68,12,0 

,5:S0UND 8,6 
UND 2,68,12, 

DAT":INPUT tt 
OBS) ,UICOBS) 

=1 TO OBS:IN 
LP)=RM: VICLP 

,"D:SPNORTH. 
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2126 

ttl, I 

2139 

N «i 

2148 

INPU 

P 

2159 

N til 

2168 

ttl,R 

NEKT 

2178 

N ttl 

2188 

INPU 

LP) = 

2198 

N «1 

2288 

SW+S 

SITE 




FOR 
M: IN 

LP 

CLO 
,4,8 

FOR 
T ttl 
I:NE 

CLO 
,4,8 

FOR 
U:IN 
MCLP 



SE ttllTRAP 46888:TRAP 2178 : OPE 
."DsSPEfiST.DAy'lINPUT tti,5E 

LP=SN+SS+1 TO SN+5S+5E! INPUT 
PUT »1,I:SRCLP)=RM:ITEMCLP)=I: 

SE ttl:TRAP 46888:TRAP 2I9B:0PE 
,"D:SPWEST.DAT":INPUT tti,SW 

LP=SN+S5+5E+1 TO SN+55+SE+SW: 
,RM:INPUT ttl,I:SRCLP)=RM:ITEMC 
KT LP 
5E ttl STRAP 

INPUT 



46888:TRAP 2218 : OPE 
M D:SPUP.DAT M 



, "D ! 5PUP . Dfll " : 1NKU I B 

LP=5N+5S+SE+SW+1 TO 
PUT »1,RM:INPUT ttl , I : 
5=1: NEXT LP 



ttl.SU 
5N+SS+SE+ 
SRCLP)=RM 



2218 CLOSE «1:TRAP 48888 : TRAP 2238 : OPE 
N ttli 4,8, "D : SPDOHN.DAT" : INPUT tti,5D 
2228 FOR LP=SN+SS+SE+5W+SU+i TO SN+SS+ 
SE+SW+SU+SD! INPUT ttl,RM:INPUT ttl, I.: SRC 
LP)=RM:ITEMCLP)=I:NEXT LP 
2238 CLOSE ttl : TRAP 48888 : TRAP 2258;.0PE 
N ttl,4,6,"D:CREATURE.DAT":INPUT ttl,CRE 



2248 D 
T 81, R 
2258 C 
2268 F 
2,LP*3 
2278 F 
=U$:NE 
2288 F 
1888) : 
2298 G 
,8:? " 
AME IN 
2388 T 
2318 P 
BLESSI 
"; NA$ 
2328 G 
2468 R 
, DELAY 
Y:NEXT 



IM MONCC 

M! MON CLP 

LOSE ttl 

OR LP=1 

)=V$: NEX 

OR LP=1 

XT LP 

OR LP=1 

NEXT LP 

RAPHICS 8:PQKE 716,8 



RE) IFOR LP=1 
)=RM:NEXT LP 
TRAP 48888 
TO 16:READ U 
IT LP 
TO 6SREAD y$ 

TO OBS:ST=ST 



WELCOME! ! 



TO THE B 
RAP 2366 
OKE 752, 
NGS OF T 



■ ■■in 



OSUB 248 

ESTORE 3 

:SOUND 8 

T ! SOUND 



OOK OF THE 
IINPUT NA$ 
l:PRINT !PRI 
HE GODS BE 

8:RETURN 
188: FOR L=l 
,S0,18,8:F0R 
8,8,6,6 



to cresinpu 

$:voc$clp*3- 

:dir$clp,lp) 

+intcuiclp)/ 

iposition 14 
enter your n 

DEAD . " 

NT "MAY THE 
WITH YOU 



TO 9IREAD SO 
T=l TO DELA 
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2419 FOR T=l TO 8 : NEXT T : NEXT LlRETURN 

2590 RE5T0RE 3200 : FOR L=l TO 6 : READ 50 
, DELAY: SOUND 8 , 50 , 10 , 10 : FOR T=l TO DEL 
AY:NEXT T:NEKT L:SOUND O , O , O , 6 : RETURN 

2700 ? "Q" l POKE 710,66:POKE 712,66:F0R 

j — jl jo 30 ! NEKT T ! RUN 
30OO DATA HAL,RUN^GO , GET , T AK , DRO , GIU , 
LOO,EXA,TOU,FEE,OPE,UNL,FIG,KIL,INU,N, 
S,E,H,U,D 

3100 DATA 100,60,190,40,100,10,100,60, 
85, 80 ,90, 60, lOO, 40, 105, 20, 100, 60 
320O DATA 96,10,72,10,57,10,48,20,57,1 
O, 48,40 
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Useful Information 



The following pages contain additional information and in- 
structions which you may find helpful in developing your own 
computer adventure. Included are: 

Character Set Manipulation 
Functions of PEEK and POKE 
Atari Hue Numbers and Colors 
Keyboard and Internal Codes 
Character Set Values 
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CHARACTER SET 
MANIPULATION 



In the Operating System, ROM, of the Atari computer are stored 
several character sets — uppercase alphabet, lowercase alpha- 
bet, numbers, special punctuation characters, and a special 
graphics character set. There are instances when it becomes 
necessary to be able to define one's own character set. Processing 
words in foreign languages, making maps or playing fields for 
games, and character-set animation are some of the more fre- 
quent uses for this capability which is readily supported by Atari 
Computers and its associated languages, Atari BASIC and Atari 
Microsoft BASIC. The OS data base contains a pointer (CHBAS) 
at memory location 2F4 hex (756 decimal) which points to the 
character set to be used. Usually it points to the OS ROM stan- 
dard character set. However, in BASIC, one can POKE one's own 
character set into a free area of RAM and reset CHBAS, the OS 
pointer, to point to the new character set and these new char- 
acters will be used by the computer. 

The character set is an 8 by 8 bit map; that is, a set of binary 
representations of each character the computer displays. The bit 
map of the bricks from the HUNTER program and the time ma- 
chine from the TIME CRIME program appear on the following 
page. By redesigning the bit maps of letters, numbers, and punc- 
tuation, many different characters sets can be created. Study the 
sectional listings of the above programs to discover how each 
language sets up and displays new character sets. 
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FUNCTIONS OF 
PEEK AND POKE 



Every memory location in your computer, whether it is RAM or 
ROM, has its own address. The first address is and the last is 
65535. At the moment the computer is turned on the operating 
system, or OS, takes over and stores values in many memory 
locations. These are called the default values. It turns the color 
of the outer screen black (location 712) and the inner screen blue 
(location 710). It sets the left screen margin (location 82) to two, 
and so on. 

To be able to find what number the computer has stored in 
a particular location it is necessary to ask the computer. This 
can be done by PEEKing a location in memory. The format could 
be: 

PRINT PEEK < 7 10) 

which will return the value stored in the color register for the 
inner screen, or it could be: 

A=PEEK(S2> 

which will now store the value of the particular location into the 
variable A. Location 82 contains the value of the left margin. 

For PILOT the format would be: 

TsSB710 and C:#A=5>BB2 

The number stored in one memory location cannot exceed 
255; therefore, the computer stores the larger number in two con- 
secutive memory locations. The first location is called the low- 
order address and the second is called the high-order address. 
In BASIC, multiplying the number stored in the second location 
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by 256 and adding the contents of the first address calculates the 
number stored. In PILOT, use the pointer variable @ without the 
B (Byte) to request two consecutive memory locations (Word). 

Example: Locations 741 and 742 contain the number that 
corresponds to the top of your available memory or MEMTOP. 
This is always more than 255 and can be found by using PRINT 
PEEK(741) + PEEK(742)*256 in BASIC, or T:@741 in PILOT. (Note: 
This will not work in PILOT if your system has more than 32K, 
because PILOT will only return integers between -32768 and 
+ 32767.) 

To alter what is stored in memory locations we use the POKE 
statement (or the C: statement in PILOT). The format would be 
POKE 710,0, which would turn your inner screen black. C:@B710 = 
would accomplish the same thing in PILOT. 

Some rules: 

1. Do not POKE numbers into unknown locations because the 
wrong value could cause your system to lock up or crash. 
Nothing you POKE in can really hurt the computer, for recovery 
is achieved by turning the computer off and then on again. 
(Of course, any program in memory is lost.) 

2. Always use the decimal number when POKing a value into a 
memory location. 



USEFUL LOCATIONS TO PEEK AND POKE 



DISPLAY LIST 

512,513 Display List Interrupt Vector— VDSLST. These locations 
store the address of the instructions that will be executed in the 
event of a display list interrupt. 

559 Direct Memory Access (DMA) Control Register— SDMCTL. This 
is used to turn off the screen display chip. 

560,561 Display List Address — SDLST. These hold the address of 
the start of the display list. 
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DISPLAY SCREEN 

77 Attract Mode— ATRACT. Less than 128 is the normal value 
stored here. More than 128 rotates the colors to protect the T.V. 
screen. This happens automatically after 9 minutes with no key 
being pressed. POKE this location to when using games re- 
quiring joysticks or paddles to maintain color values. 

82 Left Margin of Screen in mode 0— LMARGN. Default value = 2. 

83 Right Margin of Screen in mode 0— RMARGN. Default value = 39. 

85,86 Current Cursor Column Position— COLCRS. 

87 Contains Current Display Mode— DINDEX. 

90 Previous Graphics Cursor Row— OLDROW. 

91,92 Previous Graphics Cursor Column — OLDCOL. 

93 Cursor Character Save/Restore — OLDCHR. Character under 
graphics window cursor. Used to restore hidden character when 
the cursor moves. 

94,95 Cursor Memory Address— OLD ADR. 

96 Ending Graphics Cursor Row— NEWROW. Point to which 
DRAWTO will go. 

97,98 Ending Graphics Cursor Column — NEWCOL. Point to which 
DRAWTO will go. 

201 Display Screen Tab Width— PTABW. Default = 10. 

656 Text Cursor Row Position— TXTROW. 

657,658 Text Cursor Column Position— TXTCOL. 

660,661 Split-Screen Memory Address— TXTMSC. Contains ad- 
dress of upper left corner of text window. 

675,689 Display Screen Tab Stop Map— TABMAP. 

The following locations (708 through 712) apply to text colors 
when using Graphics Modes 1 or 2. 

708 Color of Capital Letters— COLOR0. 

709 Color of Lowercase Letters— COLOR 1. 

710 Color of Inverse Capital Letters (Text Screen in Mode and 
Text Window in Split-Screen Modes 1 or 2)— COLOR2. 



344 APPENDIX B 

711 Color of Inverse Lowercase Letters — COLOR3. 

712 Color of Background (Border-Mode 0)— COLOR4. 

752 Cursor Inhibit— CRSINH. Default = 0. To turn off, POKE a 1 
into this location. 

755 Character and Cursor Mode Register— CHACT. POKE a 4, 5, 
6 or 7 here and characters will appear upside down. 

756 Character Base Register — CHBAS. This variable determines 
which character set will be used in screen modes 1 and 2. De- 
fault =224. POKE with 226 for lower-case letters and graphics 
character set. 

763 Last ATASCII Character Read or Written or Value of the 
Graphics Point— ATACHR. 

GAME CONTROL PORTS 

624-631 Paddle Value— PADDL0-PADDL7. Returns value of Paddle 
through 7 (if plugged in). Values from 0-228. 

632-635 Joystick Value— STICK0-STICK3. Returns value of Stick 
through 3. 
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Joystick Values 



636-643 Paddle Trigger Value— PTRIG0-PTRIG7. Returns value of 
paddle triggers through 7. = Pressed, 1 = Not Pressed. 

644-647 Joystick Trigger Value— STRIG0-STRIG3. Returns value 
of joystick trigger through 3. = Pressed, 1 =Not Pressed. 

Note: 632-635 also used to read lightpen switch when plugged 
into ports 1 through 4. 
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KEYBOARD 

16 Pokey Interrupt Vector — POKMSK. Used along with location 
53774 to disable the break key. 

Example: Use the following as a subroutine to disable the break 
key (must be disabled after each graphics statement): 

17 Break Key Flag— BRKKEY. = Break key pressed. 

702 Shift/Control Lock Flag— SHFLOK. Used to control input, etc. 
POKE a 64 into this location and keyboard will type only capital 
letters — = lowercase letters, 128 = control characters, 255 = no 
letters accepted. 

764 Keyboard Character — CH. This location retains the value of 
the most recently pressed key or the value of 255, which means 
no key pressed. 

53279 Console Switches — CONSOL. This location can be used to 
interpret which of the three console keys have been pressed. 

= Option, Select, and Start 

1 = Option and Select 

2 = Option and Start 

3 = Option 

4 = Select and Start 

5 = Select 

6 = Start 

7 = None 



MEMORY CONFIGURATION 

14, 15 Display Screen Lower Limit — APPMHI. These locations con- 
tain the highest location available for program lines, data, and 
variables. 

88,89 Screen Memory Address — SAVMSC. These locations con- 
tain the lowest address of screen memory. The value at the ad- 
dress is displayed at the upper left corner of the screen. 
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106 Top of RAM address (Most Significant Byte)— RAMTOP. If you 
multiply the contents of this memory location by 256, you will 
find how much RAM your system has. 

741,742 Free Memory High Address— MEMTOP. 

743,744 Free Memory Low Address— MEMLO. 

PLAYER-MISSILE GRAPHICS 

623 Priority Register — GPRIOR. Used to select which objects on 
the screen will appear to be in front of the others. 

1 = All players have priority over all playfields 

2 = Players and 1 have priority over all playfields and all play- 
fields have priority over players 2 and 3 

4 = All playfields have priority over all players 

8 = Playfields and 1 have priority over all players and all players 
have priority over playfields 2 and 3 

704 Color of Player and Missile 0— COLPM0. 

705 Color of Player and Missile 1— COLPM1. 

706 Color of Player and Missile 2— COLPM2. 

707 Color of Player and Missile 3— COLPM3. 

When using registers below you POKE in a number to set Hori- 
zontal Positions and PEEK the location to see if there has been 
a collision. 

53248 Player Horizontal Position Register— HPOSP0 (Poke). 
Collision of Missile to Playfield— M0PF (Peek). 

53249 Player 1 Horizontal Position Register— HPOSP1 (Poke). 
Collision of Missile 1 to Playfield— Ml PF (Peek). 

53250 Player 2 Horizontal Position Register— HPOSP2 (Poke). 
Collision of Missile 2 to Playfield— M2PF (Peek). 

53251 Player 3 Horizontal Position Register— HPOSP3 (Poke). 
Collision of Missile 3 to Playfield— M3PF (Peek). 

53252 Missile Horizontal Position Register— HPOSM0 (Poke). 
Collision of Player to Playfield— P0PF (Peek). 
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53253 Missile 1 Horizontal Position Register— HPOSM1 (Poke). 
Collision of Player 1 to Play field— PI PF (Peek). 

53254 Missile 2 Horizontal Position Register— HPOSM2 (Poke). 
Collision of Player 2 to Playfield— P2PF (Peek). 

53255 Missile 3 Horizontal Position Register— HPOSM3 (Poke). 
Collision of Player 3 to Playfield— P3PF (Peek). 

When the Width Registers below are POKED with a or a 2, the 
player or missile is displayed at normal width, a 1 displays twice 
normal width and a 3 displays quadruple width. 

53256 Player Width Register— SIZEPO (Poke). 
Collision of Missile to Player— MOPL (Peek). 

53257 Player 1 Width Register— SIZEP1 (Poke). 
Collision of Missile 1 to Player — M1PL (Peek). 

53258 Player 2 Width Register— SIZEP2 (Poke). 
Collision of Missile 2 to Player— M2PL (Peek). 

53259 Player 3 Width Register— SIZEP3 (Poke). 
Collision of Missile 3 to Player— M3PL (Peek). 

53260 Missile Width Register— SIZEM (Poke). 

This register controls the width of all 4 missiles. 

Note: You can make missiles of different sizes by POKing with 
numbers from to 255. Example: 0,1,3 control Missile 0; 0,4,12 
control Missile 1; 0, 16,48 control Missile 2; 0,64, 192 control Missile 
3. To have Missile quadruple, Missile 1 double, Missile 2 nor- 
mal, and Missile 3 quadruple width you would POKE 
53260,3 + 4 + 0+ 192 (or 199). 

Collision of Player to Player— P0PL (Peek). 

53261 Collision of Player 1 to Player— P1PL (Peek). 

53262 Collision of Player 2 to Player— P2PL (Peek). 

53263 Collision of Player 3 to Player— P3PL (Peek). 

52277 Graphics Control Register— GRACTL. 

This location works along with location 559 to control DMA 
for player-missile graphics. A value of 2 enables player 
DMA only, a value of 1 enables missile DMA only, and a 
value of 3 enables both. 
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54279,54280 Player-Missile Base Register— PMBASE. 

These locations contain the starting address of the 
player-missile definition tables. 



ATARI HUE NUMBERS 
AND COLORS 



COLOR 


HUE 


POKE VALUE 


GRAY 








LIGHT ORANGE 


1 


16 


ORANGE 


2 


32 


RED-ORANGE 


3 


48 


PINK 


4 


64 


VIOLET 


5 


80 


VIOLET-BLUE 


6 


96 


BLUE 


7 


112 


MED. BLUE 


8 


128 


LIGHT BLUE 


9 


144 


TURQUOISE 


10 


160 


BLUE-GREEN 


11 


176 


GREEN 


12 


192 


YELLOW-GREEN 


13 


208 


ORANGE-GREEN 


14 


224 


LIGHT ORANGE 


15 


240 



In Atari BASIC, the SETCOLOR statement is used to control the 
color of its 5 (numbered 0-4) color registers. In Atari Microsoft 
BASIC the SETCOLOR statement can control 9 (numbered 0-8) 
color registers (registers 0-3 are colors of player-missiles; reg- 
isters 4-7 are playfield colors; 8 is always the background reg- 
ister). The format is SETCOLOR register, hue, luminance. 

To use the POKE values enter the number and add lumi- 
nance (0-14). By adding the value of 0-14 to any of the above POKE 
values, the luminance will be increased. 
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KEYBOARD INTERNAL 
CODES— PEEK (764) 

KEY NORMAL SHIFT CONTROL SHIFT/CONTROL 



A 


63 


127 


191 


255 


B 


21 


85 


149 




C 


18 


82 


146 




D 


58 


122 


186 


250 


E 


42 


106 


170 


234 


F 


56 


120 


184 


248 


G 


61 


125 


189 


253 


H 


57 


121 


185 


249 


I 


13 


77 


141 


205 


J 


1 


65 


129 




K 


5 


69 


133 




L 





64 


128 




M 


37 


101 


165 


229 


N 


35 


99 


163 


227 


O 


8 


72 


136 


200 


P 


10 


74 


138 


202 


Q 


47 


111 


175 


239 


R 


40 


104 


168 


232 


S 


62 


126 


190 


254 


T 


45 


109 


173 


237 


U 


11 


75 


139 


203 


V 


16 


80 


144 




W 


46 


110 


174 


238 


X 


22 


86 


150 




Y 


43 


107 


171 


235 


Z 


23 


87 


151 







50 


114 


178 


242 


1 


31 


95 




223 


2 


30 


94 


158 


222 


3 


26 


90 


154 


218 


4 


24 


88 


152 


216 


5 


29 


93 


157 


221 
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KEY NORMAL SHIFT CONTROL SHIFT/CONTROL 



6 


27 


91 


155 


219 


7 


51 


115 


179 


243 


8 


53 


117 


181 


245 


9 


48 


112 


176 


240 


< 


54 


118 


182 


246 


> 


55 


119 


183 


247 


- 


14 


78 


142 


206 


= 


15 


79 


143 


207 


* 


2 


66 


130 




+ 


6 


70 


134 




* 


7 


71 


135 




» 


32 


96 


160 


224 


, 


34 


98 


162 


226 


/ 


38 


102 


166 


230 


ATARI 


39 


103 


167 


231 


ESC 


28 


92 


156 


220 


BACKS 


52 


116 


180 


244 


TAB 


44 


108 


172 


236 


RETURN 


12 


76 


140 


204 


LOWER 


60 


124 


188 


252 


SPACE 


33 


97 


161 


225 



CHARACTER SET VALUES 



GRAPHICS 1/2 COLOR COLOR COLOR COLOR GRAPHICS 1/2 



POKE 756.224 


REG.O 


REG.l 


REG.2 


REG.3 


POKE 756,226 


SPACE 


32 





160 


128 





! 


33 


1 


161 


129 





ii 


34 


2 


162 


130 





# 


35 


3 


163 


131 





$ 


36 


4 


164 


132 





% 


37 


5 


165 


133 





& 


38 


6 


166 


134 





i 


39 


7 


167 


135 





( 


40 


8 


168 


136 





) 


41 


9 


169 


137 





* 


42 


10 


170 


138 





+ 


43 


11 


171 


139 





/ 


44 


12 


172 


140 





- 


45 


13 


173 


141 





• 


46 


14 


174 


142 





/ 


47 


15 


175 


143 
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GRAPHICS 1/2 


COLOR 


COLOR 


COLOR 


COLOR 


GRAPHICS 1/2 


POKE 756.224 


REG.O 


REG.l 


REG.2 


REG.3 


POKE 756.226 





48 


16 


176 


144 





1 


49 


17 


177 


145 





2 


50 


18 


178 


146 


B 


3 


51 


19 


179 


147 





4 


52 


20 


180 


148 





5 


53 


21 


181 


149 





6 


54 


22 


182 


150 


□ 


7 


55 


23 


183 


151 





8 


56 


24 


184 


152 





9 


57 


25 


185 


153 





: 


58 


26 


186 


154 





r 


59 


27 


187 


155 





< 


60 


28 


188 


156 





= 


61 


29 


189 


157 





> 


62 


30 


190 


158 





? 


63 


31 


191 


159 






@ 


64 


96 


192 


224 


A 


65 


97 


193 


225 


a 


B 


66 


98 


194 


226 


b 
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GRAPHICS 1/2 COLOR COLOR COLOR COLOR GRAPHICS 1/2 



POKE 756,224 


REG.O 


REG.l 


REG.2 


REG.3 


POKE 71 


C 


67 


99 


195 


227 


c 


D 


68 


100 


196 


228 


d 


E 


69 


101 


197 


229 


e 


F 


70 


102 


198 


230 


f 


G 


71 


103 


199 


231 


g 


H 


72 


104 


200 


232 


h 


I 


73 


105 


201 


233 


i 


J 


74 


106 


202 


234 


i 


K 


75 


107 


203 


235 


k 


L 


76 


108 


204 


236 


1 


M 


77 


109 


205 


237 


m 


N 


78 


110 


206 


238 


n 


O 


79 


111 


207 


239 


o 


P 


80 


112 


208 


240 


P 


Q 


81 


113 


209 


241 


q 


R 


82 


114 


210 


242 


r 


S 


83 


115 


211 


243 


s 


T 


84 


116 


212 


244 


t 


U 


85 


117 


213 


245 


u 
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GRAPHICS 1/2 


COLOR 


COLOR 


COLOR 


COLOR 


GRAPHIC 


POKE 756.224 


REG.O 


REG.l 


REG.2 


REG.3 


POKE 756 


V 


86 


118 


214 


246 


V 


W 


87 


119 


215 


247 


w 


X 


88 


120 


216 


248 


X 


Y 


89 


121 


217 


249 


y 


Z 


90 


122 


218 


250 


z 


[ 


91 


123 


219 


251 


E 


\ 


92 


124 


220 


252 


B 


] 


93 


125 


221 


253 


E 


A 


94 


126 


222 


254 


B 


— 


95 


127 


223 


255 


B 



Adventures 

with the 



f& 



Tack B. tiardtf 

Adventures with the ATARI® gets you started 
designing and writing adventure games of your 
own. There are six actual programs you can study, 
key in, and play — three interactive adventures 
and three graphical adventures. The games are 
written in three different programming languages 
—ATARI® PILOT™, ATARI® Microsoft BASIC™, 
ATARI® BASIC™ — to show you the flexibility and 
capabilities of each language that best fits your 
needs. The last part of the book is packed with 
tips and. techniques, including programs, to guide 
you in creating your own computer adventures. 
You'll find out how to use all of the ATARI'S capa- 
bilities to write games that are fun to play and 
provide countless hours of high adventure for 
everyone) 

Atari® is a registered trademark of Atari, Inc. 
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